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A COMPUTER PROGRAM TO CALCUIiATE THE LONGITUDINAL 


AERODYNAMIC CHARACTERISTICS OF WING-FLAP 
CONFIGURATIONS WITH EXTERNALLY BLOWN FLAPS 

by Michael R. Mendenhall, 

Frederick K. Goodwin, and Selden B. Spangler 
Nielsen Engineering & Research, Inc. 

SUMMARY 

This document is a user's manual for the computer program developed 
to calculate the longitudinal aerodynamic characteristics of wing-flap 
combinations with externally blown flaps. A vortex-lattice lifting- 
surface method is used to model the wing and multiple flaps. Each 
lifting surface may be of arbitrary planform having camber and twist, 
and the multiple-slotted trailing-edge flap system may consist of up to 
ten flaps with different spans and deflection angles. The engine wake 
model consists of a series of closely spaced vortex rings with circular 
or elliptic cross sections. The rings are normal to a wake centerline 
which is free to move vertically and laterally to accommodate the local 
flow field beneath the wing and flaps. The two potential flow models 
are used in an iterative fashion to calculate the wing-flap loading 
distribution including the influence of the wakes from up to two turbofan 
engines on the semispan. The method is limited to the condition where 
the flow and geometry of the configurations are symmetric about the 
vertical plane containing the wing root chord. 

The calculation procedure starts with arbitrarily positioned wake 
centerlines and the iterative calculation continues until the total 
configuration loading converges within a prescribed tolerance. The 
results available from the program include total configuration forces 
and moments, individual lifting-surface load distributions, including 
pressure distributions, individual flap hinge moments, and flow field 
calculation at arbitrary field points. 

This program manual contains a description of the use of the 
progrcim, instructions for preparation of input, a description of the 
output, progreim listings, and sample cases. 


INTRODUCTION 


An engineering prediction method for calculating the static longi- 
tudinal aerodynamic characteristics of wing-flap combinations with 
externally blown flaps (EBF) is presented in reference 1. An externally 
blown flap is a STOL high lift device in which the jet efflux from 
turbofan engines mounted beneath the wing is allowed to impinge directly 
on the trailing-edge slotted flap system. A large amount of additional 
lift is produced through engine wake deflection and mutual interference 
effects. The purpose of the analysis in reference 1 is to provide a 
potential flow method, requiring little use of empirically determined 
information, to predict the detailed loading distribution on EBF 
configurations. The method involves the combination of two potential 
flow models, a vortex-lattice lifting-surface model of the wing and flaps 
and a vortex ring model of the jet wakes. The two flow models are com- 
bined by direct superposition such that a tangency boundary condition is 
satisfied on the wing and flap surfaces. An iteration between the jet 
wake position and the wing loading is carried out until the solution 
converges . 

The computer program described in this report is an improved and 
extended version of the program of reference 2. Modifications include 
the following. An improved vortex-lattice lifting-surface method is 
used in which the trailing legs of the horseshoe vortices are allowed 
to bend around the flap surfaces so that all the trailing vorticity 
leaves the configuration tangent to the last flap. The geometry speci- 
fication has been changed so that each flap surface can be modeled as a 
separate lifting surface with a maximum of ten flaps permitted. The 
iteration procedure has been automated so that the jet centerlines are 
positioned according to the local flow field direction beneath the wing 
and flaps, and the iteration procedure can be carried out a specified 
n\imber of times or until convergence to a specified tolerance is 
achieved. The jet centerline calculation has been automated so that, 
after starting with an arbitrary jet location, the centerline is allowed 
to move so that it lies along local flow angles. The jet model of ref- 
erence 2 was defined by a series of circular vortex rings. The improved 
jet model will now handle elliptic rings; therefore, the jet may start 
at the engine exit with an axisymmetric cross section and change to an 
elliptic cross section as it moves downstream and interacts with the 
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lifting surface. The jet cross-sectional area and shape must be 
specified by the user. 

This document is a user's manual for the computer program developed 
to carry out the calculations in the EBF aerodynamic prediction method. 
Principal reliance is made herein to reference 1 for a description of 
the details of the method and the calculation procedure. Reference 1 
also contains calculated results and comparisons with data for a variety 
of configurations. The following sections of this report will provide 
a description of the program, a description of the input, a description 
of the output, a program listing, and sample cases. The notation used 
is the same as that of reference 1. 

DESCRIPTION OF PROGRAM 


The purpose of this section is to describe the EBF aerodynamic 
prediction program in sufficient detail to permit a general understanding 
of the flow of the program and to make the user aware of the analytical 
models used to represent the jets and the lifting surfaces. Basically, 
the program models the lifting surfaces with horseshoe vortices whose 
circulation strengths are determined from a set of simultaneous equations 
provided by the flow tangency boundary condition applied at a finite set 
of control points distributed over the wing and flaps. The boundary 
conditions include interference velocities induced by some external 
source of disturbance such as the wake of a turbofan engine. The jet 
wake is modeled by a series of closely spaced ring vortices, circular 
or elliptical in shape, arranged on the boundary of the jet. The 
strength of the vortices is specified by the initial velocity in the 
wake which is determined from the momentum in the jet. The jet is 
allowed to interact with the wing and flaps through the jet induced 
velocity field on the lifting-surface control points. The wing and 
flaps are then allowed to interact with the jet by forcing the jet 
centerline to be aligned with the flow direction beneath the lifting 
surfaces. This process is repeated iteratively until convergence of 
both the lifting-surface loading and jet centerline position are 
attained. 
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Calculation Procedure 


The general flow of the program, shown in the flow chart in fig- 
ure 1, proceeds as follows. After run identification information and 
certain reference quantities are read in, the wing geometry is input 
and the wing lattice layout is set up and output. This is followed by 
similar calculations for the flap surfaces. This concludes the lifting- 
surface geometry specification; therefore, the influence coefficient 
matrix, which is the left-hand side of the equation set and a function 
of geometry only, can be calculated. The matrix is triangular ized for 
use in the solution of the simultaneous equations. This concludes the 
first section of the program which need be considered only once in each 
calculation. 

The next section of the main program is that part in which the 
solution is carried out and any iterations are performed. The first 
step is the input of the initial jet parameters and the set up of the 
jet centerlines in preparation for induced velocity calculations . The 
jet induced velocity field at each lifting-surface control point is 
computed at this time. The right-hand side of the equation set is now 
computed. Solution of the equation set produces the values for the 
circulation strengths of each horseshoe vortex describing the lifting 
surfaces. Given the circulation strengths and the induced velocity 
field, the load distributions on the lifting surfaces are calculated 
and resolved into total forces and moments. At this point in the 
solution, the total forces and moments correspond to those on a lifting 
surface in the presence of a jet or jets in some specified position 
relative to the wing and flaps. This may or may not be a converged 
solution. Using the just-computed circulation strengths on the wing and 
flaps, the induced velocity field at specified points on the jet center- 
lines is computed. The jet induced velocity field at these same points 
is also computed assuming each jet to be in its initially prescribed 
position. The total velocity field, including the free stream, is formed 
at the specified points on the centerline. The centerline at each of 
these points is assumed to have the computed flow direction, and its 
position is adjusted accordingly. 

At this point in the solution, the first iteration is complete and 
the solution may or may not be converged. The jet centerlines have been 
moved; therefore, their new position does not correspond to the previously 
calculated induced velocity field on the wing and flaps; thus, the 
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interference loading on these lifting surfaces does not correspond to 
the current jet positions unless the jets v/ere moved only a small amount. 
The option is available in the program to stop here or to continue on 
for additional iterations. 

If further iteration is indicated, the program returns to the 
beginning of the iteration section and starts a second iteration by 
computing the jet induced velocity field at the lifting-surface control 
points. The solution continues as before. At the end of the current 
iteration, two checks are made. The first test is on the local jet 
centerline slopes. If these slopes have not changed an amount greater 
than a prescribed convergence tolerance, convergence is assumed to be 
attained, an appropriate message is printed, and the solution is 
complete. If the centerline convergence test fails, the same tolerance 
is applied to the current and previous values of total normal-force 
coefficient. If this test indicates convergence, the program skips to 
the final portion of the calculation procedure. If the convergence test 
fails after the prescribed maximum number of iterations has been 
completed, an appropriate message is printed and the program skips to 
the final section. 

In the final section of the program, the jet centerlines corre- 
sponding to the last iteration are output. This jet configuration does 
not correspond to the last set of loadings on the wing and flaps unless 
convergence has been achieved, but it corresponds to the jet which should 
be used for the next iteration. The purpose of printing these centerline 
parameters is two-fold. First, it allows the user to compare the last 
used centerlines with the new versions; and second, it provides a 
centerline configuration with which to continue the iterations by 
restarting the program. 

The final calculation to be carried out, if requested, is the 
computation of the induced velocity field at specified field points. 

This option is provided so that the user may investigate the induced 
flow field in the vicinity of a horiziontal tail position or other 
points of interest in the flow field. 

Program Operation 

The EBF prediction program is written in Fortran IV and has been 
run on GDC 6600 and 7600 computers. The version described in this 
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docioment was designed to be used under the FTN compiler with a level 2 
optimization. Other compilers can be used with only minor modifications 
and lower optimization levels can be used with the only penalty being an 
increase in run time. No tapes other than standard input and output 
units are required for a typical run, although one option allows an 
externally induced velocity field to be brought in via tape unit 4. 

The main program, WNGFLP, contains one item which is not a standard 
feature of all FTN compilers. Between cards WNG162 and WNG174 there are 
two calls to subroutine REQFL. This is a request for an adjustment in 
the core memory to make room for the influence coefficient matrix, FVN, 
which is stored in a one-dimensional array. The purpose of this adjust- 
ment is to minimize the core storage used until the large array is 
required. FVN is dimensioned for unit length on card WNG043 . If sub- 
routine REQFL or its equivalent is not available, the following changes 
are required. First, remove cards WNG162 through 174. Second, change 
the dimension of the FVN array on card WNG043 to a value which will 
cover the maximum number of elements in an influence coefficient matrix; 
that is, the square of the total number of vortex-lattice panels on the 
configuration of interest. Thus, the dimension of FVN can be made 
large enough to cover the largest array anticipated, or the minimum size 
array needed can be defined and the dimension changed as the number of 
vortex panels is increased. 

There is an alternative solution which minimizes storage requirements 
for the FVN array when subroutine REQFL is not available. Program WNGFLP 
can be turned into a subroutine with cards WNGl 62-174 removed and the FVN 
dimension set at unity. A short main program can be written which con- 
sists of a blank common which sets the dimension of FVN to the required 
size and a call to subroutine WNGFLP. In this way, a short five-card 
main program is all that need be recompiled to change the size of the 
FVN array. This alternate set up for a main program is illustrated in 
figure 2 to accommodate a maximum vortex lattice of 165 elements. The 
changes to the current main program, WNGFLP, to make it a subroutine 
are also shown in this figure. 

The following is a list of the components of the EBF program and a 
brief description of the function of each. 

Main Program: 

WNGFLP - controls the flow of the calculation and handles some input and 
output duties 
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S\ibroutines: 

WNGLAT - reads in wing input data, lays out the vortex lattice on the 
wing, and outputs wing geometric information 

FLPIAT - reads in flap input data, lays out vortex lattice on the flaps 

including wing trailing legs which lie on the flaps, and outputs 
flap geometric information 

INFMAT - calculates influence coefficient matrix 

FLVF - calculates influence function for a finite length vortex 
filament 

SIVF - calculates influence function for a semi-infinite length vortex 
filament 

RHSCLC - calculates the right-hand side of the simultaneous equations for 
the vortex strengths 

LINEQS - triangularizes the square influence coefficient matrix 

SOLVE - solves for the circulation strengths 

LOAD - calculates the forces on the bound and trailing vorticity 
associated with each area element 

FORCES - calculates and outputs the spanwise loading distributions and 
total forces and moments and pressure distribution on the 
complete configuration 

VELSUM - computes wing-flap induced velocity field at a specified point 

JET - reads in initial jet parameters, outputs total jet configurations, 
and calculates jet wake induced velocities at specified points 

JETCL - calculates the modified centerline position due to total velocity 
field induced on the centerline 

CORECT - corrects field point locations relative to vortex rings to avoid 
singularities 

VRING - computes velocity components induced by a single, circular vortex 
ring at an arbitrary field point relative to the ring 

ERING - computes velocity components induced by a single, elliptic 

vortex ring at an arbitrary field point relative to the ring 

JINTEG - solves for the J-integrals required in elliptic vortex ring 
equations 

ELIl - computes the generalized elliptic integral of the first kind 
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Sijbroutines (Cont’d); 


ELI2 - computes the generalized elliptic integral of the second kind 

ELLIPS - obtains complete elliptic integrals of the first and second 
kinds from tables 


QUART - solves a quartic equation 
CUBIC - solves a cubic equation 
QUAD - solves a quadratic equation 
SIMSON - does a Simpson's Rule integration 


Program Usage 

Limitations . - It should be remembered that the prediction method is 
made up of potential flow models which presume the flow to be attached 
to the lifting surfaces at all times. When applying the program to 
configurations at very high angles of attack or to configurations with 
very large flap deflections, the results will generally be too high as 
separation may exist on portions of the real model. 

The program is a model for the wing and flaps only; therefore, when 
comparing predicted results with measured characteristics on a complete 
configuration, the force and moment contributions due to such items as 
the fuselage, nacelles, and leading-edge slat must be included as 
additional items. This is illustrated in the data comparisons in 
reference 1. 

There are certain limitations and requirements in laying out the 
vortex-lattice arrangement on the lifting surfaces. These are discussed 
in detail in the input section of this manual, but several of the more 
important items are noted as follows. Since the current version of the 
vortex-lattice method bends the trailing legs of the wing horseshoe 
vortices around the flaps, in laying out the geometry care must be taken 
that a flap surface not lie above the wing surface. For the same reason, 
flap surfaces may not overlap. 

The program has the capability of computing the induced velocity 
field at any specified field point, but the modeling of the wing and 
flaps with horseshoe vortex singularities can cause numerical problems 
and unrealistic answers if a field point lies too near a singularity. 

A general rule to follow when computing induced velocities is that the 
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field point should not be closer to a lifting surface than one half the 
width of the nearest horseshoe vortex. This also has an effect on the 
layout of the points defining the jet centerlines since wing and flap 
induced velocities are important in the centerline iterations. This 
detail is described when the preparation of jet input is discussed. 

Run time .- Both the vortex-lattice lifting-surface and the vortex 
ring jet models can be time consuming in a typical calculation; conse- 
quently, their combination into the EBF program creates a calculation 
procedure which can be very costly in terms of computer time. When the 
program is used in the iterative mode, the required calculation time 
increases nearly linearly with the number of iterations. Estimating the 
computation time required for a calculation is difficult because of the 
variables involved. Size of the vortex lattice, number of flaps, number 
of jets, length of the jets, shape of the jets, spacing of the vortex 
rings, and iterations all help determine the total run time for a 
calculation. A list of typical execution times for different combina- 
tions of the above parameters is presented in Table I. 

The long execution times for the elliptic jet cases are due entirely 
to the additional complexity involved in computing the induced velocities 
from elliptic vortex rings. The elliptic jet cases require so much 
execution time that multiple iterations have been avoided in the use of 
the program to date. There are some approximations to trim the run time 
for elliptic jets which have been used by the authors. An equivalent 
circular jet which has the same area distribution as the desired elliptic 
jet can be run through several iterations to get the approximate positions 
of the centerline. The elliptic jets can then be put along these center- 
lines, and the calculation continued for one or two additional iterations. 
In this way, the elliptic jet effect on the lifting surfaces can be 
obtained at some savings in total execution time. 

Another method used to minimize execution time is to run the first 
several iterations with a minimum size lattice to determine the approxi- 
mate position of the jet centerlines. Then, the full lattice can be 
input with the jets in their approximate positions and the solution 
carried out several more iterations to convergence. 
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DESCRIPTION OF INPUT 


This section describes the preparation of input for the EBF computer 
program. In the following sections, some detailed information regarding 
the layout of the vortex lattice and the specification of the jet wake 
are presented. This is followed by a listing of all input variables 
and their format and positions in the input deck. The last topic in 
this section is a sample input deck illustrating a typical EBF calculation. 

Vortex -Lattice Arrangement 

The vortex-lattice method used in the EBF program is an extended 
and modified version of the wing-flap program presented in reference 2. 

For that reason, the wing-flap configuration considered herein is much 
more general than that previously handled, and the specification of the 
geometry for the input deck requires more detail than the input of ref- 
erence 2. The characteristics of the configuration parameters are 
listed below. 

Wing 

• Mean camber surface may have canber and twist. 

• Leading-edge sweep angle need not be constant across semispan. 

• Trail ing-edge sweep angle need not be constant across semispan. 

• Taper need not be linear and there may be discontinuities in the 

local wing chords. 

• Any dihedral angle is allowed but it must be constant over the 

semispan. 

• Thickness effects are neglected. 

• Tip chord must be parallel to root chord. 


Flaps 

• A maximum of ten flaps may be considered, but no more than three 

flaps may be behind any one wing chordwise row of panels. 

• Each flap may have camber and twist. 

• Leading and trailing edges must be straight and unbroken on each 

flap surface. 
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Flaps (cont'd) 


• Flap chord must have linear taper. 

• Thickness effects are neglected. 

• There may be slots between the flaps, but the leading edge of each 

flap lies in the plane of the adjacent upstream lifting surface. 

The vortex-lattice arrangement describing the wing and flaps is 
general enough to provide good flexibility in describing the lifting 
surfaces. A maximum of thirty (30) spanwise rows of vortices may be 
used, and each lifting-surface component can have a maximxim of ten (10) 
chordwise vortices. The area elements on each lifting surface have a 
uniform chordwise length at each spanwise station. In the spanwise 
direction, the widths of the area elements may be varied to fit the 
loading situations; that is, in regions of large spanwise loading gradi- 
ents, the element widths may be reduced to allow closer spacing and more 
detailed load predictions. The convergence of the predicted results as 
a function of lattice arrangement is described in Appendix A of refer- 
ence 2. These results apply to the current program with the following 
exception. In reference 2, the spanwise distribution of the lattice 
elements on the flaps was chosen independent of the lattice on the wing. 
In the current program, the deflection of the wing trailing vortex legs 
requires that the spanwise lattice elements on the flaps be directly 
aligned with the lattice elements on the wing. 

The maximum lattice size on the complete configuration is fixed at 
250 in the program. The elements may be distributed in any proportion 
over the wing and flaps, and for the sake of economy, considerably less 
than this total number should be used for most calculations as illus- 
trated by the run times in the table in the previous section of this 
docximent. The following comments, based on the recommendations of 
Appendix A of reference 2 and the authors' experience, are offered as 
an aid to selecting the proper vortex-lattice arrangement for a wing-flap 
configuration. 

Spanwise distribution .- Convergence of gross aerodynamic forces and 
moments to within 1 percent is obtained by using not less than fourteen 
equally spaced spanwise rows of vortices. If an unequal spanwise spacing 
is required to create a locally dense region of vorticity, the initial 
spacing should be laid out approximately equal, with additional rows 
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added in the regions of interest. The spanwise spacing can be adjusted 
small amounts to meet some additional requirements without changing the 
gross loading properties. For example, it is desirable that engine wake 
centerlines be positioned directly beneath a row of lattice element 
control points; therefore, small adjustments in the lattice can be made 
to meet this requirement. It is also desirable that there be some sym- 
metry in the widths of the vortex elements about the engine centerline 
station. This can cause some unusual distributions of lattice widths 
as illustrated in figure 3 where a typical lattice arrangement on the 
four-engine EBF model of references 3 and 4 is illustrated. In this 
case the n\imber of spanwise vortices was limited to fifteen to minimize 
the total number of elements in the lattice. In this particular case, 
the only suggested modification in the spanwise layout would be to add 
two additional narrow rows of vortices, one inboard of the inboard jet 
and one outboard of the outboard jet and redistribute the outboard 
vortices near the tip into slightly more narrow rows. 

Chordwise distribution .- Results in Appendix A of reference 2 indi- 
cate that four is the minimum number of chordwise vortices on the wing 
for best results and more than six vortices do not change the predicted 
loads appreciably. A larger number of chordwise vortices on the wing 
can be used if a chordwise pressure distribution is the goal of the 
predictions . 

The number of chordwise vortices on the flaps is somewhat arbitrary. 
A rule of thumb is that the chord of the vortex element on the flap 
should not be greater than the chord of the wing elements. Generally, 
the chord of the flap elements will be much smaller than the wing 
elements. If gross forces are the objective of the prediction, one or 
two chordwise vortices per flap are all that are needed. If pressure 
distributions are desired, there should be three to four chordwise 
vortices per flap. The gross force will change very little with 
additional flap vortices. 

A comment that was made in reference 2 is also pertinent here. Care 
should be taken in laying out vortices in regions of wake impingement. 
Since interference of the jet on the lifting surfaces is "felt" only at 
the control points of the area elements, small vertical and/or lateral 
changes in the wake centerline can cause unrealistic changes in the wake 
induced loading if the area elements on the flap are too large. This 
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is caused by the covering and uncovering of area elements whose control 
points fall near the boundary of the jet. Results indicate that if a 
sufficient number of elements are used in the wake region of the wing 
and flap, the element sizes will be sufficiently small so that results 
will not be unduly influenced by changes in wake location. 

The chordwise distribution of lattice elements on the EBP model in 
figure 1 should be considered a minimimi lattice. Flap 1 has but one 
row of vortices, and flaps 2 and 3 have only two rows of vortices. This 
is adequate for force and moment calculations, but the pressure distri- 
bution results are not detailed enough for comparisons with data. 

Jet Wake Specification 

The vortex ring model used in the EBP program is an extended version 
of the jet wake program presented in reference 2. Whereas the original 
program considered only axisymmetric jets with the centerlines positioned 
a priori, the present program will handle elliptic cross-section jets 
and the centerlines are positioned by an iterative solution. This new 
method removes some of the tedious input preparation required by the 
previous program; however, the new method requires careful layout of the 
points describing the centerline and of the rings defining the jet 
boundary. The best way to illustrate the description of a jet model 
is to go through a sample case for a typical jet. A vortex ring model 
of the inboard jet in references 3 and 4 is developed as follows. 

The first step is to locate the geometric position of the actual 
engine. From figure 2 of reference 4, the inlet of the inboard engine on 
the left wing panel is at X = 1.43 m(4.68 ft), Y = -1.48 m(-4.85 ft), and 
Z = 0.42 m(1.38 ft) in the wing coordinate system with origin at the wing 
leading edge at the airplane centerline. The engine exit is at X = -0.40m 
■-1.30 ft), Y = -1.48 m(-4.85 ft), and Z = 0.42 m(l,38 ft). As noted in 
reference 2, the jet model should be extended upstream of the actual engine 
exit a distance of a minimum of two initial radii to give the model a chance 
to develop the exit velocity profile. Thus, the jet model could start at 
X = 1.43 m'(4.68 ft) and go to X = -0.40 m(-1.30 ft) with a constant radius. 
This initial portion of the jet is longer than necessary; therefore, in the 
interest of conserving computation time, the jet is assumed to start at 

X = 0.14 m(0.45 ft), Y = —1.48 m(-4.85 ft), Z = 0.42 m(1.38 ft) and have an 

initial, constant radius section with length of 0.91 m(3.0 ft). 

The initial cross-sectional area of the jet is assumed to equal the 

sum of the fan exit area and the core engine exit area. From figure 4 
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of reference 4, the fan and core engine exit areas are 0.159 and 0.050 sqm 
(1.71 and 0.54 sq ft), respectively. Thus, the initial jet area is 0.209 sqir 
(2.25 sq ft) which is assumed to he modeled by an equivalent circular cross 
section with radius of 0.258 meters (0.845 ft). 

The next step is to detf^rmine the initial exit velocity in the jet 
model so that we may specify the vortex cylinder strength. If the 
average velocity in the exit is known from measurement, the vortex 
strength can be determined directly from equation (28) of reference 1; 
that is. 


I 

V 


V 


- 1 


( 1 ) 


where Vj/V i the ratio of the jet exit velocity to the free-stream 
velocity and y/V is the strength of a constant radius, semi-infinite 
length vortex cylinder which represents a jet with the correct initial 
momentum and velocity. Since the necessary velocity is not usually 
available, an approximate value is calculated using equation (29) from 
the same reference. 
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To get Vj from this equation, the engine thrust coefficient, C.p, and 
the density ratio, p/Pj, in the jet are required. The density ratio, 
defined as the ratio of the ambient air density to the jet exhaust 
density, can be estimated from the exhaust temperature. In equation (2) , 

S is the reference area used in defining C^, and Aj is the initial 
jet area which is calculated as the sum of the fan exit area and the 
core engine exit area. Assuming a density ratio of 2.6, which is reasonable 
for a tailpipe temperature of 538°C (1000°F), and choosing an engine thrust 
coefficient of 1.0, equation (2) produces V^/v - 11.1. From equation(l), 
the vortex cylinder strength defining the jet model vorticity to be input 
into the program is y/V ~ 10.1. 

At this point the expansion rate and the shape of the jet must be 
chosen. If some empirical knowledge of the jet to be modeled or of a 
typical jet is available, it should be included in the specifications 
in order to get the best physical model possible. Before a jet is 
chosen, a decision must be made as to the cross-sectional shape o f the 


14 



I 

selected. Based on figure 10 of reference 1, which was obtained from 
flow field measurements, it is assumed that the jet cross section is a 
2:1 ellipse at a point just aft of the last flap. These same measure- 
ments are not used to determine the expansion rate because the measured 
jet velocity ratio is much lower than we are considering. If we assume 
that an elliptic jet expands at about the same rate as an axisymmetric 
jet, the rate of expansion can be obtained from figure 8 of reference 1. 
At approximately 12 radii downstream of the jet exit, the local radius 
is approximately 2.2 times the initial radius; therefore, the jet cross- 
sectional area has increased to approximately 4.8 times its initial 
area. Using this value and the assximed 2:1 axis ratio, the jet is 
completely described at this one point aft of the flaps. 

Assuming an axisymmetric jet with linear expansion between the 
engine exit and this point aft of the flap provides an area distribution 
for the jet. If we further assxame that the jet remains axisymmetric 
until it reaches the flap surfaces and then, through linear variation of 
the length of the vortex ring axes, approaches the 2:1 ellipse, we obtain 
the solid curve for Xj <12 ft. shown in figure 4. The circular jet 
with the same area distribution is shown "dashed in this figure. Both 
the circular and elliptic jets in figure 4 have nearly the same mass 
and momentum distributions along the jets. Beyond Xj = 12 ft, the jet 
is downstream of the flaps, and its shape has less effect on the induced 
velocity field. Two options are open for this region of the jet. The 
elliptic shape can be maintained and simply extrapolated to the end of 
the jet, or the shape can be changed back to circular and extraplated 
to the end. In the interest of saving computer time, the latter choice 
\«eas made and the elliptic jet was returned to a circular shape in a 
short distance. This last region of the jet is assumed to have a lower 
rate of expansion as shown in figure 4. The following table illustrates 
the parameters of the jet in the jet coordinate system. 
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m (ft) 

Equivalent 
Radius, R 
m (ft) 

Area Ratio 

a/a„ 

Ellipt 
m — (ft) 

ic Axes 

b 

m (ft) 

a/b 

0 (0) 

0.258 (0.845) 

1.00 

0.258 (0.845) 

0.258 (0.845) 

1.0 

0.91 (3.0) 

0.258 (0.845) 

1.00 

0.258 (0.845) 

0.258 (0.845) 

1.0 

1.98 (6.5) 

0.375 (1.23) 

2.12 

0.375 (1.23) 

0.375 (1.23) 

1.0 

2.29 (7.5) 

0.415 (1.36) 

2.55 

0.451 (1.48) 

0.375 (1.23) 

1.20 

2.59 (8.5) 

0.448 (1.47) 

3.00 

0.531 (1.74) 

0.375 (1.23) 

1.41 

2.74 (9.0) 

0.463 (1.52) 

3.25 

0.570 (1.87) 

0.378 (1.24) 

1.51 

2.90 (9.5) 

0.482 (1.58) 

3.48 

0.607 (1.99) 

0.381(1.25) 

1.59 

3.05 (10.0) 

0.500 (1.64) 

3.77 

0.646 (2.12) 

0.387 (1.27) 

1.67 

3.35 (11.0) 

0.533 (1.75) 

4.30 

0.725 (2.38) 

0.393 (1.29) 

1.84 

3.66 (12.0) 

0.567 (1.86) 

4.83 

0.802 (2.63) 

0.399(1.31) 

2.0 

3.96 (13.0) 

0.576 (1.89) 

5.13 

0.735 (2.41) 

0.463 (1.52) 

1.59 

4.57 (15.0) 

0.597 (1.96) 

5.38 

0.597 (1.96) 

0.597 (1.96) 

1.0 

6.10(20.0) 

0.634 (2.08) 

6.06 

0.634 (2.08) 

0.634 (2.08) 

1.0 


The above discussion includes the development of both an axisym- 
metric and an elliptic jet model. Either of the jets in figure 4 or the 
above table could be used to represent the momentum in the wake, and the 
only differences in the predicted interference effects would be caused 
by the different portions of the wing influenced by two jets. The 
elliptic jet would tend to spread the load out in a spanwise direction 
while the circular jet would concentrate the interference loading into 
narrow regions on the lifting surfaces. 

A new rule of thumb has been developed to determine the total length 

of the jet. In reference 2, the length was specified on the basis of 

comparison with semi-infinite length vortex cylinder results. This 
method produced jets with lengths the order of 150 R^. The computer 
time required to calculate the induced velocity field from a jet of this 
length is excessive and not warranted on the basis of the small increase 
in accuracy achieved over shorter jets. In using the current program, 
it is suggested that the jet extend downstream a distance behind the 

last flap equal to the total chord of the wing and flaps combined. The 

user should investigate the effect of jet length on a particular configu- 
ration by running one case with an extended jet and comparing predicted 
results. Generally, jets longer than suggested above are not required 
unless velocity fields a long distance aft of the wing and flaps are 
required. If this is the case, the jet should be lengthened so that 
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it extends approximately one wing chord beyond the axial station at 
which field points are desired. 

The next item to be considered once the jet length and shape are 
determined is the points on the centerline used to define the jet. 

Linear interpolation between specified points in the table of jet param- 
eters is used for intermediate points along the jet. Thus, tabular 
points on the centerline are needed at the beginning, the end, and at 
any point at which there is a change in the expansion rate of the boundary. 
For example, in figure 4, the minimum required points in the jet table 
would be at Xj = 0, 3, 6.5, 12, 15, and 20. This small number of points 
is adequate for a description of the jet if it did not move during the 
calculation; but since the program iterates on the centerline shape, 
additional points should be added to the table. The procedure for laying 
out the appropriate number and location of points on the centerline 
should be carried out in the following manner. 

A sketch of the wing and flap surfaces at the spanwise station 
corresponding to an engine location is shown in figure 5. The jet 
centerline, assiimed straight, is also shown in its correct position 
relative to the wing and flaps. Keeping in mind that more points on the 
centerline are required in the region of greatest movement, the points 
chosen to describe the centerline are shown as circles in the figure. 

The points should be dense along the portion of the centerline near the 
flaps except in the area immediately adjacent to the flap (xj ~ 10.7) . 
Points are omitted from this area to avoid the numerical problems associ- 
ated with being too near a horseshoe vortex. Points can be spread 
farther apart aft of the flaps since the induced velocities are reduced 
and the relative motion of these centerline points is less than other 
points upstream. In general, too many points are better than too few 
except in troublesome regions near the lifting surfaces. 

The last critical parameter to be specified is the spacing between 
the vortex rings. Ideally, the closer the rings, the more accurate the 
results; but the closer the spacing, the more rings required to make up 
the jet model and the longer the computer time needed to compute an 
induced velocity field. A compromise number for the ring spacing is a 
distance equal to approximately 0.1 R^. This is not a firm number, but 
it is generally a good estimate. The program has an option built into 
it that allows the spacing to vary along the jet through use of the 
variable DSFACT. This is simply a multiplying factor used to scale up 
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the ring spacing to two or three times the initial value. This option 
should never be used in the vicinity of the wing and flaps as the 
accuracy of the induced velocity field at the control points will be 
reduced. It is permissible to increase the spacing downstream of the 
last flap. The use of this scaling factor is illustrated in the sample 
input decks . 


Input Variables 

The purpose of this section is to describe the variables required 
for input to the EBF program. An input form is presented in figure 6; 
and for each item of input data shown in the figure, the following 
information is given. The format for each card and the program variable 
names are shown first. The card column fields into which the data are 
to be punched are also shown. Within each block representing the card 
columns is the FORTRAN format type. Data punched in I format are right 
justified in the fields, and data punched in F format can be punched 
anywhere in the field and must contain a decimal point. 

Note that all length parameters in the input list have dimensions; 
therefore, special care must be taken that all lengths and areas are 
input in a consistent set of units. 

Item number 1 is an index NHEAD which indicates how many cards of 
information are to follow in item number 2. The value of NHEAD m\js t be 
one or greater. 

Item nxmber 2 is a set of NHEAD cards containing hollerith infor- 
mation identifying the run and may start and end anywhere on the card. 
The cards are reproduced in the output just as they are read in. 


Item number 3 consists of one card and contains the following 
information: 

SREF reference area used in forming aerodynamic 

coefficients 


REFL reference length used in forming aerodynamic 

moment coefficients 

XM,ZM X and Z coordinates of point about which pitching 

moment is calculated; wing coordinate system and 
positive directions are shown in figure 3 and the 
following sketch 

TOL tolerance on used for convergence criterion; a 

typical value“is 0.05 
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DTH 


limit, in degrees, on the maximum deflection angle 
of the jet centerline; this value is generally 
70-85 percent of the maximum flap deflection angle 
and is always input as a negative number 

The variable DTH in Item 3 is used to model the turning effective- 
ness of the jet and flap system. Static jet turning efficiency results 
indicate that the efficiency decreases as the flap deflection angle 
increases. For example, in figure 3 of- reference 3, the 40° flap 
deflection configuration has an efficiency of approximately 0.75, and the 
55° deflection configuration has a turning efficiency of 0.70. Thus, 
appropriate values of DTH for these two cases are -30.0° and -38.5°, 
respectively. If this limit is not used, the jet turning angle approaches 
the maximum flap angle and inaccurate results are predicted. The use of 
the limit can be bypassed by defining DTH to be -90.0 in Item 3. 

The next eight items of input data describe the wing. 

Item number 4 specifies the value of NWREG, the number of wing 
regions. The value of NWREG must be one or greater. The purpose of 
dividing the wing into regions is to handle discontinuities in local 
chord length. Region 1 must always extend from Y = 0 to the tip. 

The sequence and position of other regions is arbitrary. A wing with 
three regions is shown in the following sketch. 
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Item number 5 contains three quantities which are also shown in 
the previous sketch. They are: 

CRW root chord of region 1, positive quantity 

SSPAN wing semispan, positive quantity 

PHID wing dihedral angle, degrees; positive dihedral is 

shown in the sketch 

Items 6, 7, and 8 are data describing wing region number 1. Data 
input for this region determine the spanwise distribution of vortices 
for all wing regions and all flaps. The present program requires that 
the same spanwise distribution exist on all surfaces. 

Item number 6 contains five indices. They are: 

NCW number of chordwise vortices on wing region 1, 

1 < NCW < 10 

MSW niimber of spanwise vortices on left wing panel, 

1 < MSW < 30 

NTCW twist and/or camber? NTCW =0, no 

NTCW = 1, yes 

NUNI if wing has no twist and the camber distribution is 

similar at all spanwise stations, NUNI = 1; for all 
other cases NUNI = 0 (omit if NTCW = 0) 

NPRESW is the wing pressure distribution to be calculated 

and printed? NPRESW =0, no 
NPRESW = 1, yes 

The minimum number of spanwise horseshoe vortices is determined by 
the wing-flap combination geometry. The program requires that vortex 
trailing legs lie at the following locations: 

(a) the root chord and tip chord 

(b) the side edges of all wing regions 

(c) the side edges of all flaps 

(d) points where there are breaks in leading-edge or trailing-edge 

sweep 

Item number 7 is a set of MSW+1 cards which specify the following: 

Y(I) Y coordinate of the I^^ trailing leg on the left 

wing panel; Y is a negative number on the left wing 
panel, but positive values may be input and program 
will correct the sign [Y(l) = 0.0, Y(MSW + 1) = -SSPAN] 

PSIWLE(I) leading-edge sweep of wing section to the right of 

the I^^ trailing leg, degrees; positive swept 
back (measured in wing planform plane) 


20 



I 


PSIWTE(I) trailing-edge sweep of wing section to the right of 

the trailing leg, degrees; positive swept hack 

(measured in wing planform plane) 

NFSEG(I) number of flaps behind wing section to the right of 

the trailing leg 

When 1=1, Y(I) = 0 and the other three quantities are omitted. 

If NTCW = 1 in item number 6, item number 8 is included in the 
input data deck. These data specify the twist and/or ceutiber distribution 
of wing region number 1 in terms of the tangent of the local angle of 
attack of the camberline for a root chord angle of attack of zero degrees 
The input data are: 

ALPHAL(J) tan a,£ of the region 1 camberline at the vortex- 

lattice control points. If NUNI = 1, only data 
for the chordwise row adjacent to the root chord 
are input. The first value is for the control 
point nearest the leading edge. If NUNI = 0, 
data for all chordwise rows must be input starting 
nearest the root chord and working outboard. Data 
for each row start on a new card (omit if NTCW = 0) . 

The vortex-lattice control points are at the midspan of the three-quarter 
chordline of each elemental panel laid out by NCW, MSW, and the Y(I) 's 
of items 6 and 7. 

Item numbers 9, 10, and 11 are input data for the other wing regions 
If NWREG, item number 4, is one, items 9, 10, and 11 are omitted. If 
NWREG > 1, these items are repeated in sequence for regions 2 through 
NWREG. 

Item number 9 contains two indices which locate this wing region 
spanwise relative to region 1. They specify the subscripts of the 
elements in the Y(I) array, input in item 7, associated with inboard 
and outboard side edges of this region. 

IIN inboard side edge is at Y(IIN) 

lOUT outboard side edge is at Y(IOUT) 

Item number 10 contains five quantities. They are: 

NCW number of chordwise vortices in this region, 

1 < NCW < 10 

NTCW twist and/or camber for this wing region? 

NTCW = 0, no 
NTCW = 1, yes 
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NUNI 


if this wing region has no twist and the camber 
distribution is similar at all spanwise stations, 

NUNI = 1; for all other cases NUNI = 0 (omit 
if NTCW = 0 for this region) 

CIN inboard side-edge chord (see sketch) , positive 

quantity 

TESWP sweep angle of the trailing edge of this region, 

degrees 

The vortices are laid out using the value of NCW for this region and 
the portion of the Y(I) array beginning with Y(IIN) and ending with 
Y(IOUT) . 

Item n-umber 11 is included in the input data deck if NTCW = 1 in item 
10. These data specify the twist and/or camber distribution for this 
wing region. These data are prepared in the same manner as described 
under item number 8, the similar information for wing region 1. 

Item number 12 specifies the number of flap regions, NFREG. For a 
wing alone, NFREG = 0 and items 13 through 16 are not included in the 
input data deck. A flap region is a particular flap arrangement behind 
some spanwise region of the wing. The program will handle a total of 
ten flaps. 

Item nuirber 13 contains four items of input which are repeated in 
sequence NFREG times. 

NINREG number of flaps in this region, 1 < NINREG < 3 

UN inboard side edge lies at Y(IIN) of item 7 

lOUT outboard side edge lies at Y(IOUT) of item 7 

The next three items of input data are repeated in sequence NINREG 
times beginning with the flap nearest the wing trailing edge and moving 
rearward . 

Item number 14 contains four indices. They are: 

NCF number of chordwise vortices on this flap, 

1 < NCF < 10 

NTCF twist and/or camber for this flap? 

NTCF = 0, no 
NTCF = 1, yes 

NUNI if this flap has no twist and the camber distribution 

is similar at all spanwise stations, NUNI = 1; for 
all other cases NUNI = 0 (omit if NTCF = 0 for 
this flap) 
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NPRESF is a pressure distribution to be calculated and 

printed for this flap? 

NPRESF = 0, no 
NPRESF = 1, yes 

The vortices are laid out using the value of NCF for this flap and the 
portion of the Y(I) array input as item 7 beginning with Y(IIN) and 
ending with Y(IOUT) . IIN and lOUT were input in item 13. 

Item number 15 contains data which locate this flap with respect 
to the surface ahead of it, specify the inboard and outboard edge chords, 
and give the streamwise deflection angle. 

GAPIN the distance between the leading edge of this flap 

and the trailing edge of the preceding surface, 
measured in the plane of the preceding surface at 
the inboard side of the flap 

CRFIN inboard side-edge chord of this flap 

GAPOUT the gap distance at the outboard edge of the flap 

CRFOUT outboard side edge of this flap 

DELXZ the streamwise deflection angle measured relative 

to the wing root chord direction, degrees 

A streamwise plane containing the inboard edge of a double-slotted flap 
configuration is shown in the following sketch. The leading edge of each 
flap lies in the plane of the preceding surface. All quantities in 
item 15 are input as positive values. 



Item number 16 is included in the input data deck if NTCF = 1 in 
item 14. These data specify the twist and/or camber distribution of 
this flap. They are prepared in the same manner as described under 
item number 8 for the wing except that the twist and/or camber angles 
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are measured relative to the angle of the flap inhoard side-edge chord. 
These angles are all measured in a streamv/ise plane. 

Item number 17 contains one index. 

NRHS the number of successive cases to be treated for 

this wing-flap combination, NRHS > 1 

The successive cases permitted by NRHS are those which affect only 
the right-hand side of the equation set for the circulation strengths 
(eqs. (14) and (15) in ref. 1). Thus, the wing-flap geometry must remain 
unchanged in successive cases. Changes are permitted in items 18 through 
23; therefore, the successive cases may involve different angles of attack 
and/or different jet wakes. 

The last six items of input data are repeated in sequence NRHS times. 
Item number 18 contains seven quantities which are: 

ALFA wing root chord angle of attack relative to the free 

stream, degrees 

KEI index indicating whether or not an externally induced 

velocity data set is to be input via tape 4 
KEI = 0, no 

KEI = 1, yes; data set is read from TAPE4 in a 
3E13.6 format 

NFPTS number of points in vicinity of wing-flap combination 

at which wing-flap induced velocities are to be 
calculated, NFPTS > 0 

KJET index indicating type of interference calculation 

KJET = 0, no jet calculation, externally induced 
velocities may be read in if KEI = 1 
KJET = 1, jet interference calculation made one 
time, no iteration 

KJET >2, iteration on jet centerline KJET times or 

until convergence is attained, which ever 
occurs first 

index used to restrict vertical motion of jet center- 
line during iteration 

MJETCL =0, no restriction of centerline motion 
MJETCL =1, centerline restrained from moving 

vertically upwards toward wing or flaps 

index indicating whether or not jet induced velocities 
are to be included in external flow field calculation 
when NFPTS > 0 

NJETV = 0, jet induced velocities not included 
NJETV = 1, jet induced velocities included in flow 
field calculation 


MJETCL 


NJETV 
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NJETCL 


index used to restrict horizontal motion of jet 
centerlines during iteration 

NJETCL = 0, jet centerline is restricted from moving 
laterally out of original X-Z plane 
NJETCL =1, jet free to move laterally under influence 
of wing-flap induced velocity field 

The indices KEI and MJETCL are included for diagnostic purposes; 
and for typical usage of the program, both indices should be zero. KEI 
is used to input an interference velocity field induced by some source 
of disturbance other than a jet wake. It cannot be used along with a 

jet wake; thus, if KEI = 1, KJET = 0. The index MJETCL = 1 is available 

to restrict the vertical motion of the jet centerlines in certain special 
cases. On occasion, large induced upwash velocities beneath the wing 
have forced the jets upward and caused unusually large jet interference 

effects on the wing. The index MJETCL is provided so that the effect of 

this upward jet motion can be investigated by the user. 

The last index, NJETCL, is provided to restrict the lateral motion 
of the jet centerlines. Under a swept wing-flap configuration, large 
induced spanwise velocities can move the jet centerlines out of their 
original planes. This can cause difficulties in the interference calcu- 
lation if the spanwise distribution of vortices is specified in a symmetric 
pattern about the initial centerline positions. Typical EBF measured 
span-load distributions (ref. 4) indicate very little lateral motion of 
the wake centerlines; therefore, the option to restrict this movement 
is provided. It is suggested that NJETCL = 0 be used for best results. 

Items 19 through 22 identify the initial jet wakes, and they are 
omitted if KJET = 0. 

Item number 19 is a single card containing six indices pertaining 
to the jet calculation. They are: 

NHEAD number of heading cards to identify the jet model, 

NHEAD > 1 

NJET niomber of jet wakes ; NJET = 1 for one jet wake, etc. 

NCYL number of entries in table defining jet parameters, 

2 < NCYL < 25 

NNUM index controlling calculation of J-integrals required 

by elliptic vortex rings 

NNUM = 0, integrals calculated analytically 
NNUM = 1, integrals calculated niimerically 
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NPRINT 


index indicating whether or not optional output from 
the jet program is required 
NPRINT = -1, minimum output 

NPRINT = 0, induced velocities at wing control points 
output from subroutine JET 

NPRINT = 1, individual jet velocities at each control 
point output from subroutine JET 

NCRCT index indicating whether or not field point locations 

are corrected with respect to vortex ring locations 
NCRCT = 0, corrections made 

NCRCT = 1, corrections not made (to be used for 
diagnostic purposes only) 

The last three indices in item 19 are provided for diagnostic 
purposes only. For general program usage, these indices should be 
NNUM = 0, NPRINT = -1, and NCRCT = 0. NNUM should be nonzero only if 
difficulties arise in the calculation of elliptic jets. This is 
discussed in a later section describing error messages. When the index 
NPRINT is equal to zero, jet induced velocities at the control points 
are output as they are computed. This is a duplication of output. If 
the user requires information regarding the contribution of each indivi- 
dual jet to the total induced velocity at a control point, NPRINT = 1 
will cause this output to be printed. NCRCT is an index used during 
program development to investigate a situation in which a control point 
was located very near the edge of a vortex ring. Unrealistically large 
velocities were induced until the relative positions between the control 
point and the vortex rings were corrected. This correction places the 
vortex rings on either side of the control point equidistant from the 
point. 

Item number 20 is a set of NHEAD cards (from item 19) containing 
hollerith information identifying the jet. The information may start 
and end anywhere on the card and the information is reproduced in the 
output just as it is read in. 

The following two items are repeated in sequence NJET times. 

Item number 21 consists of one card which contains the following 
jet specifications: 

GAMVJ(J) the strength of the vortex cylinder representing 

the exit velocity of the J'th jet under the 
left wing panel 

DS(J) the ring spacing of the vortex rings in the J'th 

jet; a typical value is 0.1 Rq where R^ is the 
initial radius of a circular jet; if an elliptic jet 
is to be used, the appropriate spacing is 0.1 bQ 
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XQjYQjZQ the coordinates, in the wing system, of the origin 

of the jet model (YQ < 0) 


Item mmiber 22 consists of NCYL cards containing the following 
information. 


XCLR(J,N) 

YCLR(J,N) 

ZCLR(J,N) 


the N'th set of coordinates specifying the centerline 
of the J'th jet in the jet coordinate system (fig. 8 (b) ) 


AJET(J,N) 


the semi-major axis of the vortex ring at the N'th 
point on the centerline of the J'th jet 


BJET(J,N) 


the semi-minor axis at the same point 


THETA (J,N) the slope of the centerline in degrees at the point 

being considered; THETA is negative when the center- 
line is bent down to pass beneath the flap 


DSFACT(J,N) scale factor for the spacing between the vortex rings 
downstream of the N'th point; in region of wing 
and flaps, the values should be 1.0; aft of the last 
flap, the values can be greater than 1.0 


When a circular jet cross section is being described, AJET = BJET; and 
when elliptic cross sections are being described, AJET > BJET. 


Item number 23 is a set of NFPTS cards containing the X,Y,Z coordi- 
nates in the wing system, at which the wing-flap induced velocities are to 
be calculated. This term is omitted if NFPTS = 0. 


Upon completion of the calculations specified by the above input 
deck, the program returns to the beginning. Additional input decks, 
starting with item 1, may be stacked one after another. 


Sample Cases 

In this section, two sample cases are described to illustrate the 
input preparation and the use of the program. The first sample case 
is a complete calculative example involving a four-engine EBF configu- 
ration with elliptic cross-section jets. The second sample case is an 
illustrative example of a wing with multiple regions and multiple flaps 
and a single engine. Its purpose is to provide a check run for the 
program. 

The EBF configuration chosen for the first sample case is the four- 
engine model from references 3 and 4. The vortex-lattice layout on the 
wing and flaps is discussed in the Vortex Lattice Arrangement section 
and the actual lattice arrangement is shown in figure 3. The flap 
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deflections chosen for this case correspond to the landing configuration, 

= 15°/35°/55°. This particular configuration and lattice 
arrangement are used extensively for the comparisons with data in reference 1 

The jet wake model chosen for this sample case is the elliptic cross- 
section example discussed in the Jet Wake Specification section and shewn 
in figure 4. The initial jet centerline is one which resulted from three 
iterations using the circular cross-section jet also shown in figure 4. 

The calculation is set up to run two iterations (KJET = 2) because of 
the large execution time required by elliptic jets. The total time 
required for two iterations, with the input deck set up as shown in 
figure 7(a), is approximately 600 seconds on the CDC 6600. If the 
circular jet radius distribution shown in figure 4 is substituted for 
the elliptic jet axes, the same run requires approximately 200 seconds. 

A second sample input deck is illustrated in figure 7 (b) . This 
input deck, to be used as a check run for the program, describes the 
hypothetical EBF configuration shown in figure 8. The wing shown in 
figure 8(a), is modeled as two regions for illustrative purposes, but 
wing region 2 cOuld just as easily be modeled as a flap surface with 
zero gap and zero deflection. Double-slotted flaps deflected 20° and 
40° and a single, unslotted flap deflected 10° make up the two regions 
of the trailing-edge flap system. A minimum lattice is specified on the 
lifting surfaces to keep the calculation short. Wing region 1 is 
modeled by a 7X2 lattice and region 2 is modeled by a 2 X 1 lattice. 

Flaps 1 and 2 have three spanwise rows of vortices due to their position 
behind the wing. One chordwise row of vortices is placed on flap 1 and 
two chordwise rows on flap 2. Flap 3 is represented by a single 
vortex-lattice element. 

A single circular jet wake' with initial jet velocity five times free 
stream (C ~ 0.5) is placed at Y = -11. Since this case is only a check 
run for the program, the jet is not extended downstream of the last flap as 
far as is normally recommended. The expansion rate is linear as the 
radius increases to two and one-half times its initial value between 
Xj = 3 and 18. A sketch of the jet and its position relative to the 
wing and flap is presented in figure 8(b) . The ring spacing is set at 
0.1 and it is constant until xj = 15 where it is dovibled for the 
remainder of the jet length. Assuming a turning efficiency of 75 percent, 
the limit on the turning angle of the jet centerline is set at -30°. 
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Some incidental features of this sample calculation are the 
following. Two iterations are specified (KJET = 2) , and after the last 
iteration, the induced velocity field, including the jet induced veloci- 
ties (NJETV = 1) , is calculated at four field points (NFPTS = 4) . The 
jet is free to move vertically (MJETCL = 0) and laterally (NJETCL = 1) 
under the influence of the velocity field beneath the wing and flaps. 
Pressure distributions are computed on the left wing panel, flap 2 in 
region 1, and flap 1 in region 2. The output corresponding to this 
input deck is presented in the next section. 

DESCRIPTION OF OUTPUT 

This section describes the output from the EBF program. The contents 
of a typical set of output from one of the previously described sample 
cases is discussed. This is followed by a description of some of the 
error messages which may be output during execution of the program. 

Sample Case 

The output generated during the execution of the sample case shown 
in figure 8(b) is presented in figure 9. Each page of output is described 
as follows. 

The first page of output, shown as figure 9(a), is headed by the 
program title "EBF AERODYNAMIC PREDICTION PROGRAM, " followed by the 
identification information on the several cards at the front of the 
input deck. This is followed by the reference quantities consisting 
of the reference area and length and the center of moment location. 

Next on the first page is the wing input data. All of the input 
describing the wing geometry and lattice arrangement is included in 
this section. 

Output page 2 in figure 9(b) contains all the input data describing 
the flaps including the geometry and the lattice arrangement. Also 
printed on this page are the coordinates of the four corners of each 
flap in a coordinate system fixed in the flap with the origin at the 
leading edge of the inboard chord of the flap. The purpose of these 
coordinates is two-fold. First, they illustrate the slightly distorted 
shape of the flaps that occurs because the flaps are attached to swept 
trailing edges of the upstream surface. The flaps are required to span 
a certain length which is defined in planform; therefore, the actual 
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surface must be longer when it is deflected around a swept hinge line. 
Second, the coordinates are useful in locating the flap loading center 
of pressure defined in the flap coordinate system and printed on a later 
page^ 

Output page 3 in figure 9(c) is headed with the title "HORSESHOE 
VORTEX PROPERTIES." This table lists all the properties of the lattice 
elements on each lifting surface. The quantities in the last column 
on this page labeled "ALPHAL(J)" are the input values of combined twist and 
camber. This table completes the configuration dependent information. 

The first item following the table is a list of the variables pertaining 
to the run to follow. The angle of attack, ALPHA, in degrees, the 
indices from item 18 of the input deck, and the convergence tolerance 
(5 percent) are printed here. The last line of output on this page is 
a statement regarding the limit applied to the jet centerline deflection. 
If a limit is not specified, no statement is printed. 

The fourth page of output is a listing of the jet input as shown 
in figure 9(d). The variables printed are the same values input via 
the card deck with the addition of two coltimns of numbers. The variable 
SCL is the curvilinear distance measured along the centerline in the saime 
units as the other centerline distance variables. For a straight jet 
centerline with no inclination (THETA = 0) , SCL is the same as XCL. The 
last column, identified as P, is the perimeter of the jet at the parti- 
cular station. 

The next page of output shown in figure 9(e) is the first output from 
the program after the circulation strengths are computed. This page, 
labeled "HORSESHOE VORTEX STRENGTHS FOR ALPHA = xx.x DEGREES," contains 
the computed circulation strength on each lattice element. The circula- 
tion strengths (GAMMA/V) are printed in the last column on the page. Also 
shown on this page are the externally induced jet velocities at each 
control point. These velocities, UEI, VEI, and VJEI are made dimension- 
less by the free-stream velocity and their positive directions are defined 
according to the wing coordinate system; that is, UEI is positive forward 
and WEI is positive downward. If externally induced velocities are read 
in via tape 4 (KEI / 0) , these velocities are printed on this page. Also 
noted at the top of the page, directly beneath the angle of attack, is the 
iteration number "NTIME" that corresponds to the printed results. 
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The output shown in figure 9(f) is headed at the top "AERODYNAMIC 
LOADING RESULTS FOR ALPHA = XX. xx DEG." This is followed by a reiteration 
of the reference quantities which are followed by the spanwise load 
distributions. On each lifting surface at each spanwise lattice station 
the span-load coefficient, the section normal-force coefficient, and the 
section axial-force coefficient are presented. These results are normal 
and axial to the plane of the particular lifting surface. Following the 
section coefficients are the wing-alone force and moment coefficients. 
These results are for both right and left wing panels. The axial force, 
CAW, and the drag force, CDW, are both defined as positive aft. The 
pitching moment is positive in the direction that tends to increase the 
angle of attack of the wing. 

The next section of output on this page is the individual flap 
force and moment coefficients. These coefficients are for the flaps on 
the left side of the configuration only. CNF is normal to the individual 
flap surface and the center of pressure of the normal force on this flap 
is at XF (CNF) and YF(CNF) where these coordinates are in the flap coordi- 
nate system defined in figure 9(b). The axial-force coefficient, CAF, 
and its spanwise center of pressure, YF(CAF), follow. The spanwise 
force, CYF, and its center of pressure, XF (CYF) , are the next items; 
and finally, the hinge-moment coefficient, CHF, is the last item. The 
sign convention of the flap hinge moments is such that a positive hinge 
moment would tend to increase the flap deflection angle. The hinge 
moments are taken about the flap leading edge. The last items on this 
page are the complete configuration force and moment coefficients. These 
are resolved into the wing coordinate system and the sign convention is 
consistent with that described for the wing alone. 

If pressure distributions are requested, they are output on the 
next page shown in figure 9(g) . The chordwise location, X/C, at which 
the pressure coefficients are calculated corresponds to the location of 
the bound leg in each lattice element. It should be remembered that 
the pressure is constant over the entire lattice element. The last line 
on the page is the number of the iteration just completed. 

The velocity field induced by the wing-flap loading and the jet 
models at specific points on the jet centerlines is printed at the top 
of figure 9(h). The coordinates, in the wing system, correspond to the 
points defining each jet centerline with the exception of the first two 
points on each centerline. These points represent the physical engine 
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location and are assumed stationary and not allowed to move with the 
remainder of the wake; therefore, induced velocities are not needed. The 
perturbed jet position is shown on the lower portion of this page of output. 
Notice that the jet deflection angle, THETA, is set equal to the prescribed 
limit of -30° at two points on the centerline. Thus, the new centerline 
has not been allowed to move as far as the induced velocity field wanted 
to move it. 

If a second iteration were not prescribed, the last page of output 
containing the induced velocity field at specified field points would be 
printed if requested (NFPTS > 0) . If not requested, this would complete 
the output. 

However, additional iterations are requested; therefore, the jet 
defined in figure 9(h) is allowed to interfere on the wing and flaps. 

The results of the second iteration are shown in figures 9(i), ( j) , (k) , 
and (i) and these results are analogous to those just described in 
figures 9(e), (f) , (g) > and (h) , respectively . If convergence has not 

been achieved or the maximum number of iterations completed, similar 
groups of four pages will be printed xintil convergence or maximum mamber 
of iteration is reached. At this point, a statement regarding the 
convergence situation, number of iterations, and current level of con- 
vergence (DEL) is printed as illustrated at the bottom of figure 9(£). 

If convergence within the specified tolqrance (TOL) is achieved, the 
message "**** CONVERGENCE ATTAINED IN x ITERATIONS, DEL = x.xx****" is 
printed. 

The last page of output containing the induced velocity field at 
specified field points is shown in figure 9 (m) . Note that both wing-flap 
perturbation velocities and total velocities are printed on this page. 

This concludes the discussion of the output from the EBF prediction 
program. 


Error Messages 

The following error messages may be printed during program 
execution. 

"ERROR IN JET, B.GT.A" 

is printed when an elliptic jet is input with the semi-minor axis longer 
than the semi-major axis. This is a fatal error. 

"EXECUTION TERMINATED, ERROR IN DS " 
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is printed when the vortex spacing is input as zero or less than zero. 
This is a fatal error. 

"ANALYTICAL J(N) ERROR, XX POINTS" 

is a warning message printed to alert the user that the analytical calcu- 
lation of the J-integrals had mamerical difficulties at the noted number 
of points. The program automatically switches to a numerical calculation 
technique for these points; therefore, the answers are correct. If the 
number of points is a large fraction of the total number of control 
points, there may be some error in the specifications of the jets or in 
the location of the jets with respect to the lifting surfaces. For 
example, this error message would be printed if one of the jets was 
located outboard of the wing tip by mistake or if the jet centerline 
was located in the plane of the wing. If the error message persists, 
consider switching to the numerical technique via the index NNUM in the 
input data. The penalty for using the numerical procedure is increased 
computer time and a slight decrease in the accuracy of the jet induced 
velocity calculations. 

If the jet centerline deflection angle becomes -90° or less during 
iteration, the following message is printed. 

"ERROR IN JETCL j k -90.00" 

where j is the niimber of the jet and k is the niimber of the point on 
the centerline causing difficulty. This is a fatal error. The error 
is caused by this particular point being too near one of the vortices 
on the wing or flap. To correct the situation, adjust the position of 
the point in question upstream or downstream a small amount and rerun 
or restart the calculation with the previous iteration. 


PROGRAM LISTING 


The EBF aerodynamic prediction program consists of a main program, 
VJNGFLP, and twenty-four siibroutines . Each deck is identified by a three- 
letter code in columns 74-76 and each deck is sequenced with a three-digit 
number in columns 78-80. The table below will act as a table of contents 
for the program listing on the following pages. 
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IDENTIFICATION 


PAGE NO 


WNGFLP 

WNG 

35 

WNGLAT 

WLT 

37 

FLPLAT 

FLT 

39 

INFMAT 

INF 

41 

FLVF 

FLV 

43 

SIVF 

SIV 

43 

RHSCLC 

RHS 

44 

LINEQS 

LIN 

44 

SOLVE 

SOL 

45 

LOAD 

LOD 

45 

FORCES 

FOR 

46 

VELSUM 

VEL 

49 

JET 

JET 

51 

JETCL 

JCL 

53 

CORECT 

CRT 

53 

VRING 

VRG 

54 

BRING 

ERG 

54 

JINTEG 

JIN 

55 

ELIl 

ELI 

56 

ELI2 

EL 2 

56 

ELL I PS 

ELL 

57 

QUART 

QRT 

58 

CUBIC 

CBC 

58 

QUAD 

QAD 

58 

SIMS ON 

SIM 

58 



PROCiiH h»<srLP(INPUriOUrPUr|TAPe 9 slN^i;Tf TAPE 6 iOUrPUT,TAPe«i) 


(*> 

(J) 


TAPC« II The input unit FOR THl EkTIRnaLLt INDUCED VUOCITlEl 


NIN6 iND NULMPCe VQRflt UTTICf PROfiRi^* »»2 Th UlfUCHO •iK£ 

NOOIPtCD to INClUDt JtT INOUCKO VltOClTv FUlO CAWCUlitlON 

AND iTlRAtlON UN JET CfcNTERLlNf 
DINCNIION ITATCMCNT 
DIMENI20N HEADCIO) 

DlHENIION IClP(2i29)iYClR(2f2»)«ZCLR(2i25)(ThETA(|,iS),AJCT(l*2S), 
I •JET(2<2S)fXQ(2)iV0(|},20(2)f6ANVJ(2) 

TYPE ITAUKENT 

L061CAL IWEL 

COHMON ITATCHENTI 

COMHON /RCFQUA/ iaFAN,|RCFrMFL*XM,|H 

common /INDEX/ H|M,HN,NTOTrNCNI(lO)«!MAX,NFIED()0),|.AltF(l0) 

COHMOm /CPDaT/ ALPHAL(2fO)iXCP(2l9)«TCP(290)«ZCP<IIO)i 
1 C*ltHL(2SO}»$ilPHL(HO) 

common / INDIXF/ NFRlO<NFLAP|,|OPl.APnOil)»NCP(iO)fM|FUO)«MF(lO)> 
lMaTART(lO)«MENDUO>»NFSl6FUO} 

COMNON FlUDAT/ X|L(2S0) i YILdSt) » IHUlO ) i TPtl (|10 2 1 |M (ISO) 
common /MIDI/ ClM(2SO}»un(ISO)fVE|(2IO),NEI(2IO) 
common /ATAR/ lINAlFtCOlALF 
common /RVItl/ UPfVPrHP 
COMMON /NOtH/ CNT 

common /XY2CL/ NJETiNCVLiICLRi TCLP* 2ClRiTHeTA»Aj(TrBJETi 
1 XBfYO/ZO/CAMvJ 

common /UVHCL/ U(2iZS)*V{2«|C)*M(2»t9> 

COMMON /CtCAlC/ MJBTCl.#NJtTeLiTHMAX 

BUXNX common •• INCREAll ICNBTM FOR NON*ICl UlC OF PROIRAH 
COMMON FVN(I) 

FORMAT aUTEMCNTI 

701 FORNAT(IOII) 

702 F0RMAT(1M1,||X,S«H|IF AfRODYNARU RRIDICTION PRQMAH //) 

70J FORNArdOAl) 

TOR FORNaT(SX*|OA«) 

701 FORHAT(IFIOiO) 

TOI FQPMAT(//9I»BThRCFERCNCI OUAHTITIII UlEO IN FORCE AND MOMENT CAlCU 
UAT!ON/tOX,«HAREA,10X>lH«»Fll,|/l|M»*HUEN6TH»IXf lH«,FMf9/10Xi 
211HMOMEHT eENTCR/lSX,2HXH,7x,lHR«rtl,9/lSX»2HZM,TXf IHifFU.S) 

722 FORHAT(iHi,«|x,27HHOR|C|HOr VORfrl FPOFERTICl//l2Xr 10 MM*} , 12N nIn 
U DATA MOMm*)} 

721 FORHAr(/llf*HVORTEX,2X|3AH*COOIPlNAni OF lOUNQ L|6 MI0FQINT»2X» 

X )«Hv»COORDINATEI OF CONTROL FOlNT«»»f 2X« iMEEFdl* 

a |•MHALF•MJDTH,|Xf7HaURFACE/lX«|HNUMBBR,Il|X,9HlLOFE/AX| 

} AHXlL(J)<*Xf AHVRL(J),|XiAMZBL(in»4R«mxeF<J)»AX«AMYeP(J)f«Xf 
I 4NICFCJ}i*Xi4HFIX(J},rX(9M|M(J)*SX.9MALPNAUJ)/} 

724 FORMAT(ax>ll,9(2X»F10,S}) 

725 FORMAT(/UXMOMH*),ahRCI1QN,I2i 5H FlAFM2f4H OATa ilOMN*)) 

72A FQRMAT{lHl,2eX|3«HMQR8ESH0C VORTEX STRENaTHi FOR ALPHA ■ i 

1 P9ii»0H DEeRiEI//t2XilO(lH*],UH MIN6 DATA flOUH*) 

2 IUiTHnTImz • MS) 

727 PaRMAT(/U,AHVDRTCX,2X*SAH**-««C0NTR0L POINT COORolNAref****f 2X» 

\ S4N-««CXTCPNALLY induced VELOClTUI»*f SX i9HDaMMa / v/lXt«HNuMBER 

2 /4XMHj|4X|4HXCP(J),4Xf4HYCP(J](4X»*HZCP(J)f6Xf6HUEI(J]f4X, 

i bHVE!lJ)»4X,4HHEUJ)/) 

720 FORMAT(ax#13,7(2X,Fio,5)) 

729 FORHaTUPIOiO) 

75* FORMAT (//lOXrSRHJET CENTERLINf OEPlCCTION ANCLE LIMIT ■ iFT.l) 

732 FORMat(F10,0|9I5) 

7S3 F0RMATUtlS,4) 

734 rORMAT(tHIdOX|41HNIN6/FLAP INDUCED PERTURIFTION VELQC17IEI/20X» 

1 2SMAT IPEUFIEP FIELD P0INTB//19X» }HX,9X, IMY^ 9i» 1MM8I » PHU/VINF » 

2 4Xf4HV/VlNFi4X*AHn/VIKF) 



735 FORMaTMOX,9FU,5) 

7JA format MM1/20X71Mh]nC/F(.aP AND JIT INDUCED PEPlURMTJON VELDCITU 
19 ON THE JET CENTERLINE // 40If 

261HI — I - / 

3 l5X,lMXf9X» lHY,9XlMZ«aX4 2(4X,*HU/VlNFf 4XftMV/V|NFi4R4Mit/YlNF )) 

750 format (// 5M •••*f2X20HNU CONVERGENCE AFTCH» I3|2X» 1|HITEMAT1UN9« 

1 5X5MTOL ■iFT, 4«5X5H0IL ■,F6,««2X«K***ft ) 

751 format C//5M •***f2X23MCONVr«CENCE ATTAINED lN,i3,2xlONlTERATION|, 

1 SX5H0EL ■fFI,0«2XAH**** ) 

752 format (////lOX5HALPHA»5X3HKEI»TX9NNFPTt|SX4HKJEr»4X3HTOLi«X«HHJET 
lCL>9X5NNJLTV»5X6HNJtTCL/5XFiO,3(4XI3««Xl4f7xl2,Fl2,5»Ui2(7XX3n 

753 FORMAT (// 5H ****2Xi3lHCCNTERLlNE ILUPEI ImDICATI CONVERGENCE 

1 2I4H****) 

754 format (// SI9HlTERAriON ,13) 

755 format MHl,a«X,44HINDUCED VILOCITtEI AT iPEClPIEft FIELD POINTS // 

I 40X»9lHI««*— •• MINC/PLAP hING/PL AP* JE T* V I 

2NF •— •••1/43x,23hpERTURRATI0N VELOCITIEI / 

3 15X,1HX,9X, lHV|9XlHZ>«X,2(4X,4HU/VlNPf«X4My/VlNp,4t*Hk|/V!NP )) 


data dTOR/, 01745329/, FOURPI/12,54437092/*ZERO/0,/ 

INPUT AND OUTPUT CASE lOlNTlFYINC INFORMATION 

1000 READ (5,701) NHEAD 
1F(E0P(I>) 1ft 

1 ITOP 

2 continue 

MRIT|(»,T0|) 

DO 3 1r1,nhEAD 
REA0(5ff03) HEAD 

3 hRITE(*>70«) head 

INPUT AND OUTPUT REFERENCE QUANTITIES AND MQNCNT CENTER LOCATION 
READ (5f 729) SREF,ReFL<XM,ZM,TOL»DrH 

IP (DrH,GI, 0,0 ,OR, 0 TH,lT.» 90 , 9 > DTHRbROiO 
NRiriCS.TOS) SREP,REPLfiM,ZM 

INPUT AND OUTPUT MINC DATA AND LAYOUT MlNG VORTEX LATTICE 
CALL hNSLAT 

INPUT NUMBER OP flap REGIONS 
READ (IfTOl) NPREC 

INPUT data for all PlAPi AND LAV OUT VORTICES 
NFLAPS 90 

IP (NPR|6,QT,0) CALL PLPLAT 

COMPUTE SINE AND COSINE OF LOCAL AN|LE OF ATTACK DUE TO TnIIT AND 
CANSfff 

DO 41 JilfMTOT 

ALPbATAM(ALPHAL(J)7 

CALPHL(J)RCOS(AlP) 

41 BALPHLlJlallNULP) 

MRiTi M|NC VORTEX Data 

"RITC(*,722) 

mRITC(4,723) 

DO 50 Npl,Hki 

pil 6 HfArAN(rpiicF))/oro« 

50 RRm(4,7l4) K,xbL(K),YBL(K)«ZSL(K),XCP(K),YCP(k),ZCP(K),PSICH, 

1 9M(K),ALPMAL(K) 

IF(NFLAP9,CQ,0) go to 49 

NRITE FLAP VORTEX DATA 


DO 60 NFp1,NFLAPB 

mRJTE (4i 729) IDPLAPCMPfl>»I5PL*P(NFi2> 
*RITt(4i72|) 

KLbMSTART(NF) 

KUrmenDCNF ) 



oooooooooooooooooo 


U) 

a> 


00 SS KlHL»«U 
PSICHaATAN(TrSl(K))/DTaR 

%% MRJTI(fc,T 2 «) K,XRL(K),r(«LCK),Zn|,(K),XCP(K)«YCP(K).^CF(K}|PSlGH, 
1 l»(K)(ALPHAL(K) 

60 CONTjkJUE 
65 continue 


ADD CORE area EOR INFLUENCE COEFflCUNT MATRIX 
IF RCQFL II NOT AVAILABLE i REMOVE THIS SECTION AND INCREASE 
THE DIMENSIONS OF FVN IN BLANK COMMON, ABOVE* TO mTOT*mT0T 

MHcRt NTOT • total number OP VORTCK FAHELB OH wlHB AND FLAP 


IFLBso 

CALL RflFL(IFLB) 
lflriflb«ntot*htdt»i 
call RIOFL(LFL) 


CALCULATE INFLUENCE COEFFICIENT LEFT HAND SIDE* FvN 
CALL INFMAT 

TRIANOLULARIZE left HAND SIOI 
CALL LlNEOKMTOTfFVN) 

READ number OF RIGHT SIDES* AND FOR EACH FIND VORTEX 
STRENGTHS AND LOAD DISTRIBUTION 

REAO(B«ron NRHS 
DO T| KR«1,NRHS 

READ(5*?ia) alfa,kei*nfpts*kjet*hjctcl,njetv,njetcl 

IF UJCT,LI,0) NJETVtO 

IF KJETiO NO JET CALCULATION, INDUCED VELOCITIES MAY BE INPUT 

61 JET CALCULATION m NO ITERATION QN CENTERLINE 

62 JET CALCULATION • ITERATION ON CENTERLINE UNTIL 

CONVERGENCE* OR KjCT TIMES 

mjETCLbG ORIGINAL JET CL CALCULATION METHOD 

■ I JET RESTRAINED FROM VERTICAL MOTION fO>itRD MlHO 

NFPTSfNUMBER OF FIELD POINTS AT *>HlCH wlNC«FLAP INDUCED 
VELOCITIES ARE TO BE COMPUTED 

NJITVsO OMIT JET INDUCED VELOCITY FIELD 

•1 INCLUDE JIT induced AND FREE STREAM VELOCITIES 

NJETCL ■ 0 no LATERAL MOTION OF JET CL ALLQmCO 
NJETCL • I JIT CL FREE TO MOVE IN Y*OlRECTION 

NTIMliO 

IF (TnL.Ll,0,0) TOLaO.Of 

MRITI (6«TB2) ALFA*KCl«NFPTS,KjCT(TOLfHJETCL*NJETv*NJETCL 

IF (BTH,NE,«R0,0) WRITE (6*f|B) OTH 

THMAXiDTHADTQR 

ALFRALFA 

ALFAiALFAtDTOR 

SINALFaeiN(ALFA) 

C0SALF6C0S(ALFA) 

IF CKJCT,LE*0) CO TO TR 

INPUT INITIAL JET PARAMETERS AND CALCULATE JET INDUCED VELOCITIES 
EXVEL6KJET,nE,0 

S CALL JET <MT0T*XCP*YCP*ZCP|UI1*VEI*wCI,NT1HE) 

NTIMEiNTIME*! 

GO TO 7f 

READ externally INDUCED VELOCITIES FROM UNIT U IF KEla<l AND KJETao 


CXVELbKEI,NI,0 

IF (Wei.EOiO) CO TO 77 
DO 76 Jal*MTOT 


Ib HEAD Ut](J),vEI(J)»'*Cl(Jj 

77 CONTINUE 

*RITE{6,726) ALF ,NTIME 
*RITI(6,727) 

calculate right h*ko side of equations 
CALL RhSCLC(EXVEL) 

SOLVE FOR VORTICITY DISTRIBUTION FOP TmIB RIGHT HAND SIDE 
CALL B0LVE(C1R#FVN,mt0T) 


PRINT VORTEX STRENGTHS 

1F(,N0T,EXVELJ GO TQ 65 
DO SO NPtl,HM 
CAMM*gClR(NP)*FOURPl 

BO mRIT|(6»72S) NP, XCP (NP ) * YCP ( nP) , ZCP(NP) *U£ I CNP ) , V| I(nP J , mEI (nP) * 
I GAMMA 
GO TO SQ 
65 continue 

DO BS NP6l,H*> 

CAMHA6C1R(nP)*FDURPI 

SS nRIT|(6«72S) NP, xCP (NP) * YCP (NP }* ZCP (NP) * ZERO* ZERO* ZEROfCAHMA 
69 IF(NFLAPS,EO.O) 6U TO 96 
DO 9| NFal*NFLAPS 

WRITS (6*7|S) IDFLAP(NF,1)i1BFLAP(NF*2) 

mRIT|(6*717J 

MBaHtTARTCNF) 

MEbhInD(NF) 

IP(*N0T,CXVtL) GO TO 91 
DO 91 NPaHS*ME 
CAMHA6CIR(NP}*F0URP1 

91 WRITE (6*721) NP, XCP (NP) , YCP ( np ) , ZCP (NP ) * UEI ( NP) , VCI(nP) * trE'l (NP) , 

1 gamma 
GO TO 95 

92 continue 

DO 9} NPbM 8*MC 
CAMMAaClR(NP)*FOUPPI 

9) wRITE(6*72S) NP* XCP (NP) , YCP(NP7 * ZCP (nP) * ZERO* ZERO, ZERO*CAHma 

95 continue 

96 continue 

calculate loads* forces AND MOMENTS 

CALL LOAD(CXVEL) 

CALL PORCH 

IF (KJET,LE*D) go TO 7S 
write (6*759) NTINE 
ITERbnTIME 

JET CENTERLINE ITERATION 

IF (NTINE. GT.n 60 TO 79 

CNIbCnT 

DELb1,0 

60 TO IfJ 

79 DELB(CNI»CNT)/CNT 
CNIbCnT 


CALCULATE MlNC»FLAP«Jf T INDUCED VELOCITY FltlD ON JET CENTERLINE 

17] continue 

WRITE (6*716) 

NTIHE6-NTIHE 

JA61 

DO 176 JB1*NJET 

U(J* 1)60,0 

U(J«I)89,0 

V(J* 1 )b0,0 

V(J*2)6Q,0 

w(J« 1 )60,0 

»(J*2)bO,0 

DO 176 Ra3|NCYL 

KFPtXQ(J)*XCLR(J*K) 



ZFPi{0(J)*ZCLK(J«K) 

CALL vtLSuM (XFP,Yrp,2F») 

CALL JIT (JA|Xrr,Yrp,ZPP,UtI,vri,«ei,STIHC} 

U(JfK)*UP * UIl(l) 
v(jfR)BVP ♦ vinn 
M(J*K3tRP ♦ NllU) 

fc«ni (•»7ii> xR».YFR,zA^iU^,vP,ii^,uri(ij»vEin),*ci(i) 
17* CONTINUI 
NTIMfs.NTlHE 
CAU JETCL (HTIMC^TOL) 

IF (A|l(OIU,Lt,TUL) 60 TO ITI 
IF (NTIMC,6I,FJ|T) 00 TO 17# 

IF (NTIME,6|,«9) 60 TO 176 
60 TO 71 
176 NT1MI«969 
C 

C CONFUTE FINAL FOIITION OF JET CENTERLINE 

C 

CALL JIT (hTOT,XCF,yCFiZCF»UEI*VEIiNCI»NTIHE} 

C 

IF (Ael(DCL),L(*TUL) 60 TO |70 
IF (NTINE,6I.KJET) 60 TO 17| 

IF (N7IHr,6E,tf} fRJTE (*«7f|} 

•0 TO 76 

171 NRITE (IfTiO) KJCTfTOLfDEL 
60 TO 71 

170 NRITI (4>7|1) ITERiDlL 
C 

C CALCULATE VILOCITIFI AT SFEClFIlO HELD FOINTS 
C 

76 IF (NFFT6,ie,0) 60 TO 110 

IF (NJETV,LI|0> 60 TO tOl 

NRITE (6*716) 

60 TO 102 

101 NRITI (6*7|A) 

102 continue 

NTIHCi-1 

JAII 

DO IM jRliNFFTI 

READ (1*701) lFFiVFF*|Fi 

CALL VELIUN (XFF|YFF*ZF6) 

IF (njitV.lCiO) 60 TO 106 

CALL JET (JAiXFF*YFF«ZFF,UlI,V2l*NElfNTlNE) 

UII(l)FUn(l)«UF*C06ALF 

VCni)RVCI(l)«VF 

■lt(t)FRlI(l)7NF«|lNALF 

■ilTI (6*711) XFF|YFP»ZFF*UF*VF*HF,UII(n*V|Z(l}*HEI(l) 
la TO 111 

lOA HRITI (6*716) XFF,YFF,ZFF«UF,V9*HF 
lOS CONTINUE 
110 CONTINUE 
79 continue 
60 TO 1600 
END 


HNb }09 
•NC Sio 
NNU 111 
112 
-N6 111 

mPiC SlM 
*N6 115 
hNQ 116 
"N6 517 
HN6 3ia 
»N6 119 
HN6 120 
NN6 121 
NN6 522 

hN6 121 
MNQ 326 

hN6 525 
»>n6 326 
*»N6 527 
'•N6 126 
*N6 129 
NNQ 110 
*N6 111 
«N6 112 
NN6 111 
HN6 11« 
mN6 115 
NN6 116 
aN6 517 

MN6 156 
i^NC 139 
»iN6 3«o 
mN 6 liil 
hNQ 562 
hNC lAl 
mN6 199 
NN6 3«6 
NN6 196 
MN6 197 
RN6 166 
RN6 199 
HN6 160 
«N6 191 
■N6 192 
NN6 111 

MN6 166 

nN6 196 
NN6 196 

iN6 nr 

MN6 196 
NN6 369 
HN6 160 

«NG 161 

nNG 162 
NN6 361 


u 


X 


•UIROuTINE HN6LAT 

c 

C THU iUIROuTINE RCADO IN TNf niN6 INPUT DATA AND LAY6 OUT THE 
C WIN6 VORTEX lattice 

C 

C CUNmon ITATEHENTI 

c 

CUMHON /TOlRNC/ TOL 

common /REPOUA/ ••PANUReF*R|FL*XH«2H 

COMMON / NNIDAT/ V(10)*RSlMLl(|0)*P6IiiTE{}0}*tFHlH,CFH{N,TFHlH 
COMMON /INDEX/ M6 n*MH,MTOT»NCN!(1O)*ImaX|NFIC6(10)*LA6TF(30) 
common /CPDaT/ ALPHaL(260)*XCP(290)*YCP(290}*ZCF(250), 

1 eALPHL(2M)|6ALPHL(290) 

COMMON /TLDIT/ XTER(10>*XTEL(Je)*X7LR(250>*YTLF(290)*ZTtfl(260). 


mLT 001 
"LT 002 
«IT 001 
mLT 009 
NIT 009 
nLT 00b 
NLT OOT 
NLT 006 
■LT 009 
nLT 010 
NLT Oil 
*LT 012 
Nil Oil 
oLT 0)9 



I KTLL(250),YTLL(2bO)fZTLL(2SO) 

COnmun /OlDAT/ iBL(290)fY6L(290}iUL(2SO)*TP6I(|9Q}UN(29U) 

COMkon ^MlDAT/ fTLXfi(25O)iFTL<L(250)*FTLZH(2i0)»ATL2L(250) 

COMHO*^ /LOCONl/ CUNAr29O}«Cr>N69(2NO)iCnNRL(290),r{HF,rEpR 

cunmun /Chords/ chrdln(io)(Cnootf(io}*ctiff(io) 

COMMON /FRIDAT/NPRC9N,NP9tlrno),ELARtA(290)*XLE(}0) 

DIMENSION ITATEMEnT 

DlMENaiON XTE(lO) 

format ITATEHENTI 

TOl FORmaT(UU) 

702 FORMATUFIO.O) 

701 F0RHAT(//9I* 19HNIN6 INPUT DATA) 

709 FORMAT(//iex*llHRE6ION NUMlERfll) 

705 FORMAY(15X,20HIN60ARO EDGE CHORD R«F 10.9/19X * 6H|EMl6PANr U x* IHi* 
1F10|9/I5lf 19HDIHEDRAL AN6LEi9X. iHtf F 1 0,9) 

706 FaRMAT(/19XiIl|9lH V0RTICE6 AR^ TO IE LAID OUT U THlt RE61QN/20X* 
II2*12 h IPANhISE 6Y*I1*10H ChORD"UE) 

707 FORMat(/19i*99H9PaNmUE LOCATIONS OF TRAILING VORTEX LEGS* SnEEF A 
INSLES OF/20X,69HiilNC SECTION TO THE RIGHT AND HuHsER UF FLAPS IEhI 
2ND THU IECT10N//2iX|6HtPANHlSl(7X«|HLE INlEP*7l*6HTE SnCEP,TX« 
16HNUM6ER/21X*SHL0CATI0N,}TXUH0F FLAP!) 

T08 FORMAT(1F)0,0*I9) 

709 FORHAT(19I*1F1S,9*9Xi12) 

Tie F0RHAT(/16x*I6HThU RE610N EXTENDS FROM Y «*F10,S*TH TO Y ■,F10*I) 

711 FORNAT(|ISi2F10,0) 

712 FORMAT(/19X*l9HINeOARD SIDE-EDGE CHORD p*F 10 t9/19R* 19 HTHaIl1N6 E06 

II INEEPiSXf lHi,F10,9) 


DATA pTOR/O, 01 T9S129/, PI /I, 19169265/ 
INPUT NUM8IR OF NIN6 RE6ION6 


READ (1*701) NNRE6 

INPUT RietON 1 DATA AND LAY OUT VQRTlCEl 

READ (6*702) CRp*SSPAN*Ph 20 
NREGfl 

MRITE (6*701) 

NRlTl (6*761) NRE6 

NRITE (6*709) CRn*68PAN,PhI0 

TOl 9(IIPAN*16,0E*09)9«| 

READ (IfTOl) NCNfHSH|NTCM«NUNI,NPR||N 

MNiNCnAHSN 

HTOT9MH 

NRITE (6*T06) NNfH|N*NCti 
IHAKaHfH*! 

NRITI (6»rOT) 

DO 10 I91*1MAX 

READ (9*701) Y(I),PSlMLEn)*PttNTi(I)*NPSE6(I) 
ncnkdincn 

IF a.IiiU NRITE (6*709) Y(l) 

IF (I.NI.n 

INRITI (6*709) Yn},PSINLE(n*PlUTE(n*NFSE6(l) 
IF (Y(1),GT,0,0) Y(I)a»YU) 

10 CONTINUE 

DO 11 l9l*MSM 

11 NF6C6(naNFSE6((*l> 

IF (ntcn.NI.O) 60 TO 21 
DO 20 Jn1*mh 

20 ALFhal(J)*0,0 
60 TO 29 

21 IF (NUNI.NE.O) CO TO 21 
HNaO 

DO 22 JNM»l,Hki,NCN 
HN9HN*NCN 

22 READ (9*702) ( ALPHAL ( J) * JbJnh, MN) 

CO TO 25 

23 READ (9*702) ( ALFHAL ( J) * Jal , nC^ ) 

DO 29 Jb2*mS> 

JJa(J«i)*NCii 
DU 29 KlliNCN 



CO 

Ifi ALPH*L(f<K)sALPHAL(K) 

IS CO^TIMUC 
C 

C LAY OUT REGION 1 uma VORTICES 

C 

TEMP9lA,0*R!/tRCF 

TlNR*0,S«T|MP 

phudtobaphio 

tPHXRsIlNCPHn 

CRHXwiCOSIPHj) 

YPHlMalPHXta^CPHlw 

PNChlNCM 

XTE(1)b«CRn 

CHLfCRu 

OUNAITIMR/PNCN 

C 

C LOOP OVER CH(jRD»iISE ROMS 
C 

DO HO 1«I»1HAX 

LASTf (IM)IO 

TURVPV(J") 

TUy»r(l) 

TLRIiTUIY*TPMlw 

tUl«TUL'f*TRHl«i 

TPIlLEPTAN(P|lMLCa)*DTQR) 

TPIITltTAN(P|lwTE(lJ*OTOR) 

DY*TU^Y*TLRY 

XllU)»l(ll(lMl4DV*TPStLI 

XTI(n«llTE(IN>AOY«TPfITI 

BLi»(xil(n^iucnY))«s.t 

xTtRnH)»xTenM) 

XTtU2H)«Xie(l) 

DR6I«TPftLC«TRim 

CTLRaCTLI 

CTLL»CTLR*DY*0P|I 

CBL»tCTLR*CTU)*0*S 

DCRD»CBl^^NCi* 

CHROLM(tM)tCBL 

TLRXaxLKtM) 

TllXtXLKI} 

TCOMRaDUHA*CTuR 

tcon»lpdoha*ctli 

c 

C LOOP OV|R VORTICCI IN THU Ren 

C 

00 JaliHCP 

IVBJJ4J 

PjBj 

PAClP(PJ*0,ri)/FNCN 
PACCa(PJ*0,ll)/PNCii 
kCP(lV)pBLK*PACC*CtL 
*TLRllV>iTLRX»FAC»*tTLR 
yTLR(IV)pTLRY 
2TLR(1V)»7LRI 
XTLL(!V)pTLLk«rACB*CTU 
YTLL(JV)pTULV 
ZTLL(!V)iTLLZ 
PTLXR{IV)BriRXvPACC*CtLR 
PTlZRtlvUTLRI 
FTLXL(IVUTlLX.F4CC*CTLL 
FTLZL(IV>pTLLZ 
|LARIa(IV)»PCRO 
CONBRdViPTCONBR 
CONBUIV)pTCON|L 
PI CONTINUI 

PO continue 

c 

C LOOP nviR other NlNtt PE6IQNI IP PRESENT 

c 

IP (NHRECtCOi I ) 00 TO 100 
DO SO N»1 |NmRC 0 
HRiTi («>ro«) N 
READ tS,T0n 11N,10UT 


•sLT u 9S 
hLT OOP 
hLT 095 
4LT 096 
hLT 097 
tLT 096 
mLT 099 
hLT 100 
*LT 101 

hLT 102 
hLT 10) 
hit 169 
mLT US 
•LT UP 
PUT 107 
PUT US 
PIT 109 
PIT UO 
pLT 111 
nLT 112 
"LT 11) 
PIT lU 

PIT US 

PLT U* 
PIT U7 
PIT ill 
PIT 119 
PLT 120 
PIT III 
PLT 111 
PLT 111 
PLT 129 
HLT US 
PIT 116 
PLT 127 
PLT US 
HLT l|9 
HLT 119 
pLT 111 
PLT Ul 
PLT 111 
HLT 13« 
PLT 155 
PLT 136 
PLT 157 

HLT 136 
PLT 159 
PLT 140 
HLT IS! 
PLT HI 
HLT 1«) 
PLT l«9 
PLT US 
pLT U6 
pLT 197 
HLT US 
HLT 199 
HLT ISO 
PLT tSl 
hLT IS2 
HLT 1S5 
HLT ISO 
PLT US 
pLT 1S6 
PLT 1ST 
PLT US 
PLT 159 
PLT 160 
HLT 161 
PLT 162 
pLT 16) 
PLT 164 
HLT 16S 
PLT 166 
•LT 167 
PLT 16S 
PLT 169 



••RUE (6»71oJ Y(llN),YnuuT) 

pLI 170 


READ (5. Tin ncp.nTCp»nunI,CIN,TE8pH 

pLT ITl 


n9pp1u<JT«IIN 

•LT 172 


NVUPp^lSPPNC^* 

HLT 173 


PRUC 16*706) KVQR,N8p*NCp 

nLI 179 


pRlTl 16*712) CINiTESPP 

HLT 175 
pLT 176 


LAV OuT VORTICES FOR THIS RISION 

hLT 177 
■LT 171 


FNCPasC" 

■LT 179 


CTLLacU 

pLT 180 


DUHA»tEhR/FnCp 

HIT m 

PLT 181 


LOOP OVER CHORDPXU ROh| 

pLT 183 
hLT 1B9 


IBEGfllNAl 

pLT us 


DO 60 U1SC6*I0UT 

pLT 186 



pLT 117 
■LT US 


SHIF7 VORTIX DATA SO N£p VORTIcM CAN BE INURTID 

PLT 189 
PLT 190 


NCpSUhaO 

"LT 191 


on 61 JaifXN 

PtT 192 

61 

NCMSUMaNCPSUNANCPXU) 

PLT 19) 


MH«HH«NCH 

PLT 199 


NTOTiHP 

•LT 195 


NCHSUH9NCHSUH91 

HLT 196 


IF n»EB|2NAX) GO TO 63 

PUT 197 


J«HP«1 

"LT US 


NftJaNCP 

PUT 199 

62 

J«4«l 

■LT 260 


KiK«l 

PLT 201 


XCPUUSCF(K) 

■LT 202 


XTLRCJ)6XTLR(K) 

PLT 103 


tlLRU>6YTLRlH) 

■LT 269 


ZTLR(J)iZTLR(K} 

■Lt 105 


XTLL(J)9X7LL(K) 

■LI 106 


YTU(J)»YTLL(K) 

■LT 107 


ZTLL(JUZTLL(K) 

■LT 108 


FTLRR(J)pFTLXR(KJ 

■LT 109 


FTLZR(J)pFTLZR(K) 

PLT 210 


FTLXL(J)RFTLXLIK) 

PLT 111 


FTLZL(J)pFTLZL(K) 

■LT 212 


ELAREa(J)RELAREA(K) 

■LT 213 


CON9R(J)aCONBR(K) 

PLT 219 


CONBLCJIvCONILCK) 

PLT 115 


ALFNAL(J)RALFHAL(K) 

PLT 216 


alfhaloorOiO 

"LT IIT 


IF (RU^i^ChSUNX go to 61 

PLT 2U 

6) 

NCHI(IM>9NCHt(lH)9NCP 

HLT 219 


TLRYiY(XH) 

■LT 210 


TLLYaYlX) 

PUT 221 


TlRZaTLRYATPMIP 

PLT 122 


tlurtlly*tphxp 

■LT 223 


ILIaCxTE (n9RTEUM))*0.f 

HLT 229 


Tf|lLE»TAN(R|UTI(n*OTOR) 

■LT 235 


TMITEaTANlYCBPFtDTOR) 

■LT 226 


PilHTcn>6TElHF 

HLT 227 


OPIXrTFSILI*TPBITC 

PLT 228 


OYaTLLYaTLRY 

"LT 229 


ctlrbctul 

■LT 230 


CTLLaCTuRtDYtDFBX 

PLT 231 


C9Lb(CTlRaCTLL}*0U 

PLT 232 


DCRDpCBU^FnCp 

PLT 233 


ChR0LH(XHX9CHR0LP(IH)aCIL 

PLT 239 


TLRXaxTC(lN) 

HLT 235 


TLLXaxTEU} 

PLT 236 


kTtR(IH}aXTe(IH}*CTLR 

PLT 237 


XTELClH3aXTI(X)«CTLL 

MLT 236 


TCONfRaDUHA*CTLR 

■LT 239 


TCONBtaDUMA*CTLL 

■LT 290 


IF (NTCP|N[,0|AND,t|Ctt.IBEG) READ (S«T02} (XBL(H)fHaUNCM) 

■LT 291 


IF (NTCP»N(|0,ANO,t|6T»ISEG.ANO|NUNt.EQ,0) read (S»T02) CXSL(H)> 

HUT 292 


1 n«1*nCp> 

■LI 213 
■U 299 


LOOP OVER VORTICES U ThXS ROp 

PLT 295 
■LT 266 


C 

C 

C 



DU TO 
FJlJ 

UCbilF J«0»7S}/FNCt» 

FACCltFJ*0,2l)/f*<CM 

)tCF(IV)RBt.X*F*CC*CeL 

xtlruv>»tlbk*f*cb»ctl« 

m«ny)«TL"T 

nL«lIv)»TLRZ 

l7LLav)tTLL**FlCB*CTU 

TTlL(IV)iTt.LT 

ZTl.L(IV)tTUZ 

FTLXB(lV)tTLBX«FiCC*CTCII 

FTLlRa>0»TLHZ 

FTlXL(IV)«TU.X»r*CC«CTLL 

FrL2L(Ilr}«Tl.LZ 

UXRCa(Iv)iOCRO 

CUMBR(IV)iTCUKeR 

CONBL(l«)iTCONBl. 

ALRHal(IV)bO,0 

IF lHTC»i,6T,0) ALPHfctUvjBXfcUtJ) 

TO CORTXmUE 
60 cdntimui 
50 continue 

c 

C CAICUL6TE OTHER n2N6 VORTEX •U'NTITIEI 
C 

100 DUN»0,5/CRHtH 

DO 101 jBliHR 

XRl(J)BtXTU(Jl«XTLR(J))*0,| 

Yll(J)P(YTtL{J)tYTLR(J))*0,l 

EBLUW(ITU(J)«ZTIR(J)}bO,| 

YCR(J)BVBLrj) 

ZCP(J)aZ8L(Jl 

TPII(J)b(XTLR1J>»XTU(J))/ (YTlI(J)bYTlL(J))*CPHI»( 
• M(J)bDUHb(YTLR(J}«YT|.L(J}) 
lL*Rr6U)iELiRE*(J)*lH(J)*Z.O 
eQNA(J)lTEMRB|M(J) 

101 continue 

RETURN 

END 


mil 207 
2<it 

•■LT 2tlR 
'•UT 250 
251 
*Ll ibi 
*-lT 255 
"Ut 254 
NlT 255 
256 
•17 257 
*UT 256 
"IT 259 

«i.T 260 
NIT 261 
"IT 262 
NCT 263 
"IT 264 
"LT 265 
"LT 266 
"LT 267 
"LT 266 
"LT 269 
"LT 270 
"LT 271 
"LT 272 
"LT 275 
"LT 274 
"LT 275 
"LT 276 
"LT 277 
"LT 276 
"LT 279 
"LT 260 
"LT 261 
"LT 262 


"LT 163 

"LT 164 


*VT nt 


"IT 266 


"LT 267 


"LT 266 


I 


IURROUTZNE rlrlat 

ThU IUBROuTINC reads in TN| FlaR data and LAY6 out the flar 
vORTICll INCLUDING THE "iNf VORTEX SE6HENT6 1^ THE FLAPS 

COMMON ITATEHENTI 

COMMON /CROAT/ ALPHAL(2IO)iXCR(i50),YCR(290)rZCR(250)» 

1 CALRHU290MALRHU250) 

COMMON /BIDAT/ xeL(2501fY6L(250)fZBL(a90)fTRSZ(250li6"C250} 

COMMON / "NGOAT/ Y(30)»F6I"LetlO)»Rll"TE<10)»6PHlK,CPMl",TRHl" 
common /INDEX/ HSK|Mti|HTOTfNC"I{301,IMAX.Nr6EC(30)iLA8TF(50) 

COMMON /TtOAT/ XTER(30)»xrtC(J0l»XTLRJ250)iYTLR(250)»ZTLfi(250)» 

1 XTIL(2|0](YTLU250)«ZTLL(250) 

COMMON / INDEXF/ NPRE6#NFLAP6f IDFtARU0i2}fNCF{10)fM6Fn0)|HF(l0}> 
lMSTART(10)fMEND(lO)|NF8ECF(lO) 

COMMON /FuRDAT/ 6DElxZ( 10)»CD6LAZ(1Q) I YF (30f 10)«SPHirn01» 

ICPHIFMO) 

COMMON /""OAT"/ X"FR"(30i 37» Y"FR«t(SOi3)iZ"FR«(30»l).X""L"(30»3)» 
lYH"L"(ie«31iZWKl"C30r31 

common /"KDATF/ XMKRF(30«2*lO)|T"MRF(30f2«10)rZ""RF(30f2»10)» 
tX"KLF(30|2,101f Y mKLF ( 30»2f lOlf 2M"LF(10|2« 10) 

COMMON /FTLOAT/ FTLXR(250)iFTLtL(250)|FrwZR(*50),FTLZL{250) 
common /L^eUNI/ CnNA(250)iC0N8fl(250)fCQNBL(a50)*rEMP,r|MR 
COMMON /CHORDS/ CHROL"(50J»CROOTFU6J,cnPF(lO) 

COMMON /FLAPLC/X"lLE(lO),Y"ILeno),Z"lLCnO)»RHRFLCUO> 


C 

C 

c 


CUHKON /P«SO*T/^-‘*«ES",NPRk5Fnft),E|.BHtA(250).XLC(10j 
FORMAT STATEMENTS 


7{/l FUR"Af(|Hl,6X,l5MFtiF input OATaJ 
702 FORMATU015) 

701 FORNAT(/lO»,l3HR|CU.N NUMBER , I?/ 15x,9MTMtHt AHEl2»2lM FLAPS iN ThI 
IS REGIOn/J5x,20HThEV EiTEnO FRO" Y BfF10,5»7N TO Y B|Fiu,5) 

704 FnRMiT(6FlO,0> 

705 IORmat(/15X,11hFLAP NumRER* I3/20Xi 21H1NB0ANO EDGE CAR b,fio,$/ 
120X(2tMOUTSUARD EDGE CAP b,F 1 0 ,S/I0Xf 2l hInBUAND EDGE CHORD ■» 
2F10,5/26X,2ihUuTBUAR0 EDGE CHORD ■»F10,5/20X»21hD|FlECTION ANGLE 

3 BfFiO.S) 

706 FnRMAT(/20XlSf4lH VORTICE6 ARE TO SI LAID OUT QN THU FLAR/25X»12» 
112M IPANNISE BYrI3«10H CHORDbIIE) 

707 FaRMAT(/20k|2lMSRAN«iI8E UOCATinNS OF/21Xf 20HTHAXL1NC VOKTEX LEGS) 
706 FuRHATCaSX.Fll.S) 

70* F0Rmat(/20X«41HXF,YF COOROINaTRI OF FOU" CORNERS OF F-LAP/26X* 

1 25H(fL6P lies in ZFbO PLANn/})X|2hXF ( 11 Xi2NYF) 

710 FORhat(25X,2F13,S) 


DATA OTOR/0, 01745329/ 


"RITE (6»7ei) 


LOOR over REC20NS 

DO 100 NRbi,nFRE6 

read (9»70a) NINREGiMNiIOUT 

"RITE (6f703) NR,NlNREG»Y(IIN),vaou7) 

XTEOGlaXTER(IlN) 

YTEDGjaYdjN} 

ZTEDGlaVTED6I*TPHI" 

XTEDGOafTELnuUT*!) 

YTEOGO»V(IOUT) 

ZTED60aYTC060*TRHI" 

ANGBI.O 

LOOP OVER FLAPS 1" THIS REGION 

DO 200 nFbi^nINREG 
NFLARSaNFLARS"! 

IDFLAP(NFLAPS(l>aNR 

2DFLAR(nFLARI#2)bNF 

NFSbnflaRS 

MSF(NFS>rIOUT»JIN 

NrSeGF(NFS)aNlNRE6"NF 

READ (5*702) ncF(nFS)* ntcF»NUNI«NRHCSF (MFI) 

read (5*706) GARlN*CRFIN*6AR0UTfCRF0UT*DCLXZ 

"RITE (6*701) NF*CARrN*6AR0UT*eRFZN,eRF0UTf0CLIZ 

CROUTF(nFS)bCRFIN 

CTIPF(SFS)6CRF0UT 

ANCRbanObOTUR 

IANGbSINCAnGR) 

CANGbCOS(ANGR) 

ANObOELXZ 

X"INbxT|06I*6AP1N«CaN6 

Y"1nbyTEDGI 

Z"INb2TCOGI«CARIN*IAN6 

X"ILE(NF8)bxm1N 

ywIL-I(NF$}BYWlN 

Z"ILE(NF8)«2"IN 

X«auTBXTED«0*GAPOUT6CAHG 

YNUUTbYTEDGO 

Z"0UTi27ED60aCAP0UT*SanC 

DELRaoELXZ*orUR 

SntLPaSIN(DELN) 

COkLRaCQS(OfLR) 

I0ELX2(NFS)bSDELR 

C0ELXZ(NFS1sC0ELR 

xrEOGlB("lN«CHFlNACOELR 

ZrEOGtaZ"lN«cRF IN aIDELR 

xrtQQOal«OUT*CRFOUT*COELR 

2TEDG06Z"OUTaCRFUUTb80ELR 

NVaNCF{NFS)"M|F(NFS> 



o 


)asv 

►•STaBT S)»mTOT* I 

HENtl(N»-S)*“nn*NV 

»*U)TaMENOrsFS) 

(6r706) NV,MSF(Nf S) I (NF )) 
HSFPshSF (N f 
PiRlTE (6» 7071 
KaIlN«l 

DO 210 Jsl*M«FP 
H«K* 1 

YFlJ»sr|JaY(H) 

210 PRITI (t» 708) YFUiNfS) 
HSlMfTARTCNFt) 
li'taMinocNFI) 

NCFFt»4CF(NF8) 

H$Ff BMlFCNFI) 

IF (ntCF,mC,0) CO TO 212 
DO 211 

211 ilPHAL(K]aO ,0 
CU 10 21* 

212 IF (NuM,N|,0) CO Tn 2U 

HNBMS«1 

00 211 JNF»m|,me,ncfF 

MMhN«NCFF 

213 HEAD (S, 70 «) (ALPHALC^IiKaJNFfHN) 
60 TO 21* 

21U ^CFL«m|«NCFF»1 

READ (S»70tt) (ALRHAL(H),t(aH9,NcFL) 

0(] 215 Ha2i*«fFF 
KK*(K«1 )*NCFFFHM 
00 215 (."li^CFF 
U*KK«l 
LLI*L«HN 

215 AUPHALaDtAlRHALait) 

21* continue 
c 

C LAV OUT VORTICCI 
C 

DXHflXMOUT«KNlN 

OZH«ZMOUT*ZMtN 

XFO*OXMFCOrL>«0ZH*8OElR 

yfo«ywout»v>*in 

ZFO*OXnfIDELRyDZm*COCLR 

TPHlFiZFO/VFO 

PHiFailANCTPHlF) 

SPHlF(NFf)a9IN(PHlF) 

CPHIF(NFI)*C09(PMIF) 

TPIILFbIFO/YFO 

tpiite*()(po«crfout*crfin]/yfq 

DPIlBTPflir*TP8JTE 

FNCFFbNCFF 

KLllBO.O 

CTLLbCRFIN 

CPHUcPHIF(NFI) 

9bPFLE(nF9)bAT*NCTP«ILE *CPHI) 
mRITE (6r709) 

*FF«0,0 

YFFbo.O 

*RIT| (6»710) *FF,VFF 
xffb»chfin 

HRITE (**710> XFFfYFF 

iffbxfo 

YFFbYFO/CPhI 

NHIIE t*»7l0) XFF,YFF 

xffbxfu*crfout 

HHITE (*«710) XFFfYFF 

KKBMS.l 

C 

C LOOP OVER CH0RDW19E «0»l 
C 

DO 22ft iBZf'tSFP 
ImbNi 

TLRYivF(IH,nF9) 

TLLYbvF(I«NF91 

1LRZb(TlRY»Yii.IN)»TPhIF 

1LLZb(TLLY*Yh1N)*TPh1F 


FLT loa 
FU 105 
FLT lOB 
FLT lOT 
FtT lOe 
FLT lOQ 
FLT 110 
FLT 111 
FLT 112 
FLT 111 
FLT ita 
FLT 115 
FLT 11* 
FLT 117 
FLT 110 
FLT 11* 
FIT 120 
FLT 121 
FLT 122 
FLT 121 
FLT 12* 
FLT 125 
FLT 12* 
FLT 127 
FLT 120 
FLT 129 
FLT 110 
FLT 111 
FLT 112 
FLT 111 
FLT 11* 
FLT 115 
PUT 13* 
FIT 117 
FLT lie 
FLf 119 
FLT 1*0 
FIT 1*1 
FLT 1*2 
FUT 1*3 
FLT 1«« 
FLT 1*5 
FLT ifl* 
FLT 1*7 
FIT 1*0 
FLT 1*9 
FIT 150 
FLT 151 
FUT 152 
FIT 153 

FLT 15* 

FLT 155 
FLT 15* 
FIT 157 
FLT 150 
FLT 159 
FIT 1*0 
FLT 161 
FLT 1*2 
FLT 161 
FLl 16* 
FLT 165 
FLT 166 
FLT 167 
FLT 160 
FLT 169 
FLT 170 
FLT 171 
FLT 172 
FLT 171 
FLT IT* 
FLT ITS 
FUT 176 
FLT 177 
FLT 176 
FLT 179 
FLT 160 


DV» iLt V- TLWY 

xlUFixlEI 

XLU»XLEI'‘*ft’r*TP3ILfc 
HL««f »Lf I*xi T 

cuhbctli 

CTLL«CTLR* 0 'i*DP 51 

CBL«(CTLL*CTLR>*0,5 

DCHDbCBL/FsCFF 

BL 2 »(tlhZ»TU. 2 )* 0,5 

BLY«f TLRY+TLLY)*0,S 
SfpO, 5 iDY/CPHl 
ELAHEanCNDtSaZtO 
tCONitlEHP*B 

TCONBLBTENBtCTLL/FNCFF 
T CONOR* TEF’R*CTLR/FNcFF 

c 

c LOOP nvE» VORTICES IN THIS RO- 

c 

DONAapLZ *9D1 LR*XpI\ 

0 UNB*TLRZ* 9 DELRFXhIN 
DUNC 1 TLLZ*B 01 LR^X^IN 
OuHOtPlZ *CDEL»*ZpIn 
D gNE* 7 LR 2 »CuCLR*Z-lN 
DUMFbtLLZ*CDELR*Z» 1 n 
DO 210 n*i,^CFF 

KKBKK «1 

FKbK 

FACB»(FK* 0 , 75 )/FNCFF 

FACCi(FH* 0 , 25 )/f NCFF 

XCPFbblXpF*CC*CBL 

XTLRF«*LtlMpCTLR»FAC 0 

X 7 LLF*XLn»CTLL*FACB 

FXTLBbXUE 1 m-CTLR*FACC 

FxTLLbXLEI*CTLI*FaCC 

XCP(*k)bXCPF*CDEUR*DU*‘A 

xrLR(KK)BXTLPF*CDURFDUNB 

XTLL(*lOBXTLLF*CDtLPADUMC 

FTLXR(*K)bFiTLR*CDELR«OU**B 

F TLlLt'T*O»FXTLL*C0eLR»0UMC 

XBL(kk)b(XTLR(K)( )fXTLU(KK))*o ,5 

YCP(*x>B0LY 

YTLR(XK>bTLRY 

YTLL(K*)bTLLY 

ybkkkibbly 

ZCP(FX>*-XCPF* 50 tL«*Ol "*0 

ZTLR(hk)b»XTLRF •5DELR*0U*<t 

ZTUlKic)BP*TLLF*$DELRtDUNF 

PTLZitK(OB*FXTLR*BPElR*DUHt 

FTLZL(KX)b-FXTLL* 8 DELR^DU«F 

ZSL(KK)*(ZTLR(KK)AZTLL(KKn*e,l 

9h(kk)b| 

ELaREa(kk)*EIARE 

TP 5 llKA)BnP»lU-FACB*DP 9 I)tCPMl 
CONA[kK)*TCONA 
COnBR[kk)bTCONBR 
CONBL(XH)bTCONBL 
230 continue 
220 CONTINUE 
C 

C locate intersection OF »InC trailing LfCI hITh ThjS FLAP 

c 

DX*bxihOuT*X* 1 N 

DYhbYmOUTpYNIN 

DZi»b 7 * 0 uT«Zm 1 N 

IOuTmsIouTpI 

DO 2*0 jBlINf lOUTM 

JPbJa} 

IF (NF .EO»NlNREGI LASTF(J)BNFa 
YYlY(J) 

FAC«lYY*Y''IN)/DYW 
XhKRh( J,NF IbX"1n«FAC*DXi« 

YHKN*(J,NF)bYY 

ZMNRMf J, Nn*ZnIN*FAC*DZ»' 

YYBVt JP) 

FACbTyvpYwINI/OYv 
Xi*KLI«(J«NF)BI<«IN«FAC*DXk 
Y»FL*r J»NF)*VY 


FLT 161 
FlT 162 
►LT 161 
FLT |e<i 
FLT l«5 
FL1 166 
FLT’ 167 
FLT 160 
FLT 169 
FLT 19>j 
FLT 191 
FLT 19? 
FLT 193 
FLT 19* 
FLT 195 
FLT 196 
FLT 197 
FLT 190 
FLT 199 
FLT 200 
FLT 2ftl 
FLT 20? 
FLT 203 
FLT 20* 
FLT 205 
FLT 206 
FLT 207 
FLT 20B 
FLT 209 
FLT 21ft 
FLl 211 
FLT 212 

FLT 215 
FIT 21* 
FLT 215 
FLT 21* 
FLT 217 
FLT 216 
FLT 219 
FLT 220 
FLl 221 
FLl 222 
FLT 223 
FLT 22* 
FIT 225 
FLT 226 
FLT 227 
FLT 226 
FLT 229 
FLT 210 
FLT 211 
FLT 232 
FLT 233 
FLT 23* 
FLT 235 
FLT 23b 
FLT 237 
FLT 236 
FLT 239 
FLT 2*0 
FLl 2*1 
FLT 2*2 
FLT 2*3 
FLT 2*u 
FLT 2*5 
FLT 2*6 
FLT 2*7 
FLl 2*6 
FLl 2*9 
FLT 250 
FIT 251 
FLT 252 
FLT 253 
FLl 2S* 
FLT 255 
FLT 256 
FLT 257 



c 

c 

c 


c 

c 

c 


c 

c 

c 


2«0 CUNTlNUe 

LOClTp I^TtRatCUlJ*- OF I.PS^RFAM Pt*FS Tfi^UlNt tt<;5 ».IT" 

IF (^F.ec,]) GO ru ^T 0 
r«Ff INF 

JFaNFS«»<FF*l 

JFF>»iF8»i 

LCJUF I'VM uPSTRLAm flaps 
DO 2S0 KaJF*JFF 


FIT 2 b 9 
»Ll ^60 
T«is KAF rLT 2b\ 
flT 

FLT 26i 
FIT 2 bU 
FIT 2 b 5 
FLT ibh 
FLT ^67 
FLT dbK 
FLT 

FLT 270 


M8FUaH$F(»<J FLI 271 

N 8 iJfF-K*l Ftr 272 

FlT 275 

LOOP OVIR V locations cf TRaIUNS LECI On THIS upsTpfam flap flt 27u 


FLT 275 

DO 2A0 JB1»HSFU FLT 27b 
JP«JA1 FLT 277 
VYi7F(J,JF) FLT 278 
FAC»fVY-T«lN)/OY« FLT 279 


l»KeF(J,N8,iOiXHlN*FAC*DXM FLT 280 

Y«KHKJ,NS,A)1YY FLT 28l 

2HXRF(JfNt,K)l2"ZN«FAC*DZH FIT 282 

YY«YFfJP,jFJ FLT 28} 

FAC«(YV«V>IN)/OYN FLT 289 

XMKLFtJ*H8|K)tXnlH«FAC*DX»i FLT 265 

YRKLr(J«N6,F)9YY FLT |l8 

:hRLF(JiN|,X}«Zw1N«FaC*DZH FLT 287 

290 CONTINUE FLT 288 

250 continue FLT 269 

270 continue FLT 290 

200 CONTINUE FLT 291 

100 continue FLT 292 

return FLT 29} 

end FLT 29(1 


subroutine INFHAT INF OOl 

C INF 002 

C CALCULATE! INFLUENCE COIFFlCItNT MATRIX INF 00} 

C INF 004 

C COMMON ITATEMENTI INF 005 

C INF 009 

common FVN(l) INF 007 

COMMON /FLPOAT/ IDClXZ ( 1 0 ) r COEL XZ (1 0 1 « YF ( 10 i 1 0 ) f SPniF ( t 0) » INF 006 

ICPHIFdS) INF 009 

COMMON FAKOATn/ XMKRR(}O*}T>YNKRM(}O»3}fZAKRM(S0«))«XnKLMa0»3}» INF olO 

lYNKLHdOflTfZMKLMdOr}) INF Oil 

CUHMOn /RROaTF/ XHKRP(}Or2»10),YMxRF(lO,2i 10)«Z«KRF (30f2«l07f INF 012 

1XMKLF(S»|2, 10)iYmklF(30,2, 10)<ZhklF(50»2, 10) INF 013 

COMMON / MNSOATy Y(38}»P91 mLE(10)<P|InTE(30)iSRhIh.CPHIm,TPhI« INF 014 

COMMON /INDEX/ M8H,MW,MTOT|NC>I(30)»lMAX,NFSE6(30)fLA8TF(30) INF 015 

common /CPDAT/ ALPKAL1250)#XCPI2SO)#YCP(250),ZCP(250), INF 019 

1 CALPHL(250)i9aLPHL(250) InF 017 

COMMON /TLnAT/ XTERfll))»XTEL(30),XTLR(250)»TTLR(250J,ZTLR(250>, INF 018 

1 XTLL(2l0),YrLL(2SO)fZTLL(25O) ISF 019 

COMMON /FLVFRC/x 1 ,VwZ 1 «X 2 iY 2 » 22 »xP,yP, 2 P|FU»Fv,Fn«AX,aZ Inf 020 

COMMON / INDfXF/ NFffCG*NFLAP8»IDFLAP(10f2)|NCF(10)fH8FnO},MF(i0)i INF 021 

lM8TART(|0)#**fcNO(10),WFStCFt 10) INF 022 

C INF 023 

C LOOP PV|R all control pOINTI INf 02u 

C INF 025 

JFLAPil INF 029 

CPHFiCPMIKlJ INF 027 

IPMFasPHIFUJ INF 028 

CDXZBaCOELXZ(l) INF 029 

SDXZlaSDELXZn } INF 030 

^ 00 200 J«l#MTOT INF 031 


xPsxCPf J> 

7P*JCP( J) 

IBASFkO 

CALFaCALP-L(J) 

S*lF*S*LPmL(J) 

IF (J.UP,M*^ CU Tu «0 

If tJ,LE,MlNO(JFLAP) ) CO TO 50 

JFLAPsJFLAP*! 

CPHFacP^lF(JfLAPl 
SPhF tSPhlF ( JFuAP) 

CDxZPaCOELxZCJFLAP} 

tOxZBiSOELXZtJFLAP) 

C 

C FLAR POUNC'ARY tUNOlTIUS FACTyRI 

C 

50 R«aCPHFtCALF*C0xZe*SALF*90XZA 
Rva-SPHF *CALF 

kuaSALF«COxZB*CPMF «CAlf *30X26 
CO TO 50 
C 

C •INC 9UUNDA4Y CUNDITION FACTOR! 

C 

uO Rvs«SPHlii*CALF 
R*aCPHlw*CALF 
RUaSALF 

50 continue 
C 

C LOOP OVER ChORDmISE R0»! OF alNC VORTICtS 
C 

DU 150 ISxaifMSM 
AFTU*0» 

AFTVaOi 

AFTHao, 

LPaLASTFd!*} 

KAf TaHFSfcCdtM) 

IF(NAFT,EQ«0) CO TO 125 
IF(NafT.EO.I) CO TO 122 
C 

C contribution uF FINITE TRAlLINQ LECt IN FLAPS AFT OF THIS H(]h, 
C 

NAFTHaNAFT*! 

DU 120 lASalfNAFTH 
lASPajAS*! 

XlaXwxRAdSM* US) 

YlaYKKRHdSM, IAS) 

ZlaZMKRH(IlM,lAS) 

X2aXHKRHd$»,lASP) 

V2aYHKPH(IS*i lASP) 

22a2HKRPd|M«lA8P) 

CALL FLVF 
AFTUaAFTUYFU 
AFIVlAMViFV 
AFTHaAFTHYFM 

xiax»KLM(IS»»lAS) 

YlaVHKLRUfMilAS) 

ZlaZMKL«dS«*»US) 

X2aXHKLN(IS*,lA8P) 

Y2aYMKLM(IfP, 1A8P) 

Z2aZktKLNd3M| lASP) 

CALL FLVF 
AFTUaAFTU«FU 

aftv*aftv-fv 

*F TksaF Txvpv 

120 continue 

C 

C CONTRIBUTION UF 3iMl«lNFlNne TRAILING LEUS IN LABT AFT FLAP 
C 

122 Axa>CDELXZ(LF) 

AZsSDFLXZCLF) 

XlaXHKRH{I|«i,NAFT) 

VlaYw<(RMd|M,NAF n 
ZtBZHXRHd5*fNiFT] 

CALL SlVF 
AFTuaAFTU«FU 
AFTV*AF7V»FV 
AFT**AFT*-f h 


INF y}2 
InF «3} 

INF 

IMF «}5 
INF 05b 
INF 0}7 
INF 038 
INF 05R 
jnF OttO 
1«F Otal 
INF u«2 

INF 04i 
InF 044 
INF 045 
INF Ottb 
INF 047 
INF OaS 
INF 049 
IMF 059 
INF 051 

iNF i'S2 
C 5 i 
INF OSU 
INF 055 
INF oSb 
iNf 057 
INF 058 
INF 059 
INF 090 
INF ONI 
INF 092 
INF 093 
INF 094 
INF 095 
INF Obb 
1N» 097 
Ir^F 068 
INF 099 
INF 070 
INF 071 
INF 072 
INF 073 
InF o7u 
INF u75 
INF C-79 
INF 077 
INF 078 
INF 079 
INF 080 
INF 081 
INF 082 
INF 08} 
INF D8u 
INF 085 

iNF 08b 
InF 087 
INF 088 
INF 089 
INF 090 
IM 091 
;nF 092 
INF 091 
INF 09a 
{NF 095 
INF 09b 
INF 097 
INF 098 
]NF 099 

I'*F lOft 

iNf 101 
INF 102 
INF 103 
INF 104 
INF 105 
INF 109 
INF 107 
INF lOH 



•Ik 




( IS»-. ‘•AM ) 

zitz^nLi'Uik*^*^ n 

CAU Sivr 
Af 7 OBAF Tu«f U 
AMVBftrTV^FV 
AM-»AFTk*r« 

125 C0»«tI^ul 

c 

C LOUP PV|B V0P7JC£5 IN This BPn 
C 

nC*C«‘^Ci>UI8k} 

DO UO ICh»\«NCMC 
IbIBASC^Ua 
C 

C CONTRIBUTION OF SOUND LtC 
C 

AMMlUI) 

a2»»TlR(I) 

TltVTUd) 

V2 *yTlB(I) 

/t«2Tu(n 

22 «ZTlP(1 ) 

CALL FLVF 
UT0T»f U 
VTOTbRV 
"TUTbFR 

ir(NAFT,N|,0) OU TO liS 
C 

C N(J SURFACei BlMlNO tmis i«lN(i HOh • trailing legs in king PLANfc 
C 

AXB"1,0 

A2i0, 

CALL 51VF 

ututbutut^fu 

VTOT»vTOT*FV 
nTOTBwTOTtFh 
XtBXI 
tlRVI 
Z1*Z2 
CALL Sivr 
utoTruTot.fu 
VTOTbvTQT»Fv 
liiTOTshTOTvFH 
fiO TO IIA 
C 

C THERf ARC FLAPS BEhINO THIS RU«| COMPuTl INFLUENCE OF 

C FINITE TRAILING LEGS IN Tm| nInG PlanC 

C 

135 XIbXTlRU) 

YIbTTlR(I) 

ZIbZTlRTI) 

K3lXliKRM(U««n 
V|iVhFRw( IiH| u 
22B{HKRM(iati,|} 

CALL FLVP 

UTOTbuTOTaFU 

VTOTbvTOTaFV 

bTOTihTOTaFn 

IIBXTLL(I) 

tjBVTLLd) 

ZIbZTlLU) 

X2 bXwkln(1|w, 1 ) 

V2BYiiKlh(Itw,t) 

Z2BZNKLN(l>*<in 
CALL FLVf 
UTOTbuTOT-FU 
VT07bvTUT»FV 
»TOTBtoTUT»Fh 

C ADO CnNTBlSUT IONS FRO*' PANEL! *FT UF t*lNC 

c 

UTOTBIITOTAAFTU 
vTOT*vTOTaAF7V 
•TOTbnToTaaFTn 
liB JJb(I.|)*HTUT*J 

FvNIJj)tuT 0 T#«U*VTOT»RVAwTO 7 ARN 


IN^ 1'..9 
INF no 

IN^ in 
INF nz 
INF Mi 
INF n« 
INF MS 
INF 116 
iNF 11? 

INF ns 

INF HR 
INF 120 
INF 121 
INF 122 

INF 123 
INF 126 
INF 12S 
INF 126 
INF 127 

INF 128 
INF 12R 

INF no 

INF 15l 
INF 152 
INF 135 
INF 134 
INF 135 
INF 136 
INF 137 
INF 13! 
INF 139 
INF 140 
INF 141 
INF 142 
INF 143 
INF i«a 
INF las 
INF 146 
INF 147 
INF 146 
INF 149 
INF 150 
INF 151 
INF 152 
INF 153 
INF 154 
INF 155 
INF 156 
INF 157 
INF 150 
INF 159 
INF 160 
INF 161 
INF 162 
INF 163 

INF 164 

inf 165 
INF 166 
INF 167 
INF 166 
INF 169 
INF 170 
INF l?l 
INF 172 
INF 173 
INF 17U 
INF 175 
INF 176 
INF 177 
INF 178 
INF 179 
INF 160 
INF 181 
INF 182 
INF 183 

INF 184 

INF 115 


Uv Cl'NM' ufc 

I"ASt«I8A5t*KC*C 
15f. CUNTj^uE 

!F (SFt APS,t(.,0) Gf) Tl' 2C0 
C 

C IsFuut-NCt C* Flap hjwTICES •• LUfi® L-vto flaps 

c 

Ob |9C IFLllfNFLAPS 
NAFTg>.F|ECF(lFL) 
lflp«ifl*naft 
c 

c LUQP nvCR ChOROhlSE Rn»S UN TnII Fla* 

C 

hSFFbuJFIIPL) 

CDXbCOFLXZUFL) 

SDX«8dELXZ(IFL) 

NCFFtLCFUFLI 

-STihsTARTfiRL) 

OU 175 IS-Bl,h8FF 
AFTUSP. 

AFTvbO* 

AF Tikio , 

IBASSb^STa r ll«*l }*NCFF«1 
IF(nafT,LG,0) go to 163 
IF(NAFT,CU«n GO Tb 161 

c 

C TnO flaps SCHIND this one •« CONPbTC INFLUENCE OF FInUL 
C trailing LEG! On The FIRST ONE, 

C 

XlBXhKRF(I|H,lrIPL) 

YlarhKRFniHfltXFL) 

Z1bZykRF(1|i,UIPL) 

X2ax.iKRF(ISh,2*lFL) 

V2bV6kRFUI"*2»1PL) 

Z2BZ»KUFns..,2nFL) 

CALL FLVF 

AFTUiaFTUAFU 

aftvbaftvafv 

AFThbaFThaFb 

xIbxhklF(IIBiUIFL) 

YlBYKXLFdSMflitFL) 

ZIbZkkLF niHf UIFl) 

X2gXHxLF(l|i.,2nFLl 

Y2byhkLF(I|h,2,1PU 

Z2BZHKLF(Z|H,2*rFL) 

CALL FLVF 
AFTUbaFTU"PU 
AFTVbaFTV*FV 
AFTHBAFTHBFii 
C 

C CONTRIBUTION OF St ►* I ■ I Nf TN I TE TRAILING LEGS In lagT FLAP AFT OF 

C This one 

c 

Ui X1 bXhkRFU|h«naFT,1PL) 

YlBYMXRF(ttH,NiFT«lFL) 

ZlBZHRRF(I|li,NAFTf IFL) 

AXb.CDCL*Z(LFLP) 

AZbIDEL«Z(LFLPI 

CALL S2VF 

AFTUbaFTU«FU 

AFTVbaFTVhPv 

AFThbaFTh-Fh 

XlBX 6 XLF(ltH»NAFT»IFL) 

YlBYHKLFUSh|NAFTrlFL) 

Z1bZmkLF(1|i.,h4FT,IFL) 

CALL SlVF 
aftubaf TUAru 
AFTVfflFrVAFv 
Af ThbaFThaF*. 

c 

C LOOP OVER VORTICES IN Thjs RD" 

C 

Ibi continue 

DO 170 IC«b1,nCFF 

c 

C INFLUENCE OF SOUND LEG 
C 


INF 16* 
INF 187 

inf 180 

INF 189 
Inf 190 
iNF 191 
INF 192 
INF 193 
INF 194 

inf 195 
INF 196 
INF 197 
inf 198 
INF 199 
INF 200 
INF 201 
INF 202 
INF 203 
INF 20U 
INF 205 
INF 206 
INF 207 
I'.F 20» 
INF 209 
IhF 210 
INF. 211 
INF 212 
INF 213 

INF 2|4 
INF 215 
INF 216 
INF 217 
INF 218 
INF 219 
iNf 220 
INF 221 
INF 222 
INF 223 
INF 224 
inf 225 
INF 226 
INF 227 
I'^F 228 

INF 229 
INF 230 
INF 231 
INF 232 
INF 233 

INF 234 

INF 235 
INF 236 
iNF 23? 
INF 238 
INF 239 
InF 240 
INF 241 
INF 242 
INF 243 
INF 244 
INF 245 
INF 246 
INF 247 
INF 248 
INF 249 
INF 250 
INF 251 
INF 252 
INF 253 

INF 2Su 
INF 2S5 
INF 256 
INF 257 
inf 258 
INF 259 
INF 260 
INF 261 
INF 262 



M»VTLL(I) 

zi«zTU(n 

X 2 «XTL*( 1 ) 

Y 2 *YT|.«a) 

Z2bZTlX(1) 

CALL FLVF 
UTOTbFU 
VTOTbFV 
mTOTbFM 

1 F(NAFT,NC, 0 ) 60 TO US 

e uf 

C NO FLA^I MCHUD THU ONI, COHFUTI INFLUtNCC OF SCMUInFINITE INF 

C TffAtIN6 LE6I IN THE PLANE OF THIS FLAP, UF 

C INF 

AXsaCPX INF 

AZaSOX INF 

call siyf inf 

UTOTauTOT^FU l**f 

VTOT«VTOT*FV INF 

HTOTsNTOTtFK INF 

XUXI INF 

YUYI INF 

ZUZI INF 

CALL 8 IVF INF 

UTOTauTeTaFU INF 

VTOTaVTOT-FV INF 

aTOTBHTOT«Fa UF 

60 TO ur INF 

C INF 

e THERE ARE FLAPS BEHIND THIS ONt, COMPUTE THE INFLUENCE OF INF 

e finite trailing LECS INT THU FLAP INF 

C INF 

US XlaXTLR(l) inf 

YlaYTLR(l) INF 

ZUZTLRin INF 

X 2 aXHKRF(l|MiIf!FL) INF 

YlBYHXRFCUNiIiirU inf 

ZifZHKRFdSPiliIPL) INF 

CALL FLVF INF 

UrOTauTOTPFU INF 

vtotbvtotafv inf 

aTOTaNTOTFFN INF 

XUXTLL(I) INF 

yipytll(I) inf 

ZiaZTLLd) INF 

X 2 PXHKLF(tSH»l«ZFLI INF 

YlBTaKLFIUNilflFL) INF 

Z 2 aZBKLF(Ila,t» 2 FL) INF 

CALL FLVF INF 

UTOTSUTOT»FU INF 

VTOTaVTQTaFV INF 

HTOTawTOTaFN INF 

UTOT*uTOT*AFTU INF 

vtot«vtot*aftv inf 

htotihtot^aftw inf 

UT JJa(Ul)«iHTOTFiJ INF 

FVNUjIeUTOTaRUAVTOTPRVTNTOTaRM INF 

170 CONTINUE INF 

I 7 S CONTINUE INF 

190 continue inf 

200 CONTINUE INF 

C INF 

C LOUP OVER FLAP CONTROL PU 2 NT 8 UF 

C INF 

return inf 

END INF 


2 ; 


SuBHDLiTJNE FLVF 

FLY 

001 


FLY 

002 

APNLIFS EUOATIL'nS fur PINMe LENGTH VORT|X FiLAHEteT 

FLv 

003 

influence FUNCTIONS, TAKE FRUH HOE1N6 R[PORT Ui*924ltt 

FLY 

OOA 

BY RUBBIRT PP, BS*B9 

FLV 

005 


FLv 

OOP 


FLY 

007 

COHMON ITATEHENTS 

FLY 

QOS 


FLV 

009 

COHHON /TULNNC/ TOL 

FLY 

010 

CUHHON /FLVFR6/Xl,Yl,Zl,X2«V2»Z2»XP|YP»ZP»FUUV|Fa»AX»AZ 

FLV 

Oil 


FLY 

012 

XPOaXPaXl 

FLV 

013 

XTOaiZaXl 

FLV 

014 

XPTaxp*k2 

FLV 

015 

ZPOaZPaEl 

FLV 

ou 

ZT0aZ2aZl 

FLV 

017 

ZPTiZP«E2 

PLY 

OIB 

•PTaxaTAXPTtZPTtZPT 

FLY 

019 

SPOaKPO*XPO«IPO*ZPQ 

FLY 

020 

BaZTO*XPO«XTO*ZPO 

FLV 

021 

680al|*B 

FLV 

022 

FUaO.O 

FLY 

02i 

FVtO.O 

FLY 

02A 

FaaO.O 

FLY 

025 

816Nbi,o 

FLY 

024 

YPOaYPaVl 

FLV 

027 

YT0aT2«Vl 

FLV 

020 

YPTaYP»Y2 

FLV 

029 

ELSQaxTO*XTOAYTO*YTO*ZTOAZTO 

FLV 

030 

ELaSBRTCCLSO) 

FLV 

031 

DO 100 KbIU 

FLV 

032 

AbYTOaZPO"ZTO*YRO 

FLV 

033 

CbXTO*YRO*YTO*XPO 

FLV 

osa 

RADCLaSQRT(AAA«B8QYC*C) 

FLY 

Ui5 

IF (RaDCL,LI|TOL) 60 TO 90 

fly 

03a 

RlSQaSPOAYPOAYPO 

FLv 

037 

R2SQISRT9VRT9VPT 

FLV 

OSB 

RUIIRTCRIIBI 

FLV 

039 

R2aSBRT(R3S6) 

FLV 

000 

RSDaRiSOaRlSB 

FLV 

9*1 

eiTHU(RSDpELSQ}/(3,0BEL*Rn 

FLV 

002 

CSTH2a(RBO»CLSe)/(2,0*eL*RI) 

FLV 

003 

RRaR|t8&RT(l,0«eSTH2ACSTHl) 

FLV 

ooo 

FACBBl6H*(CSTHUCItH|)/(RR«RA0IL> 

FLV 

OIS 

FUbFU4A»FAC 

FLV 

004 

FVaFVpBtFAC 

FLV 

047 

FHBFNACaFAC 

FLV 

OOB 

YTOb*yTO 

FLV 

009 

ypobyppyi 

FLV 

050 

YPTbYP»Y2 

FLV 

051 

SI6Nb»1,0 

FLV 

052 

return 

FLV 

053 

END 

FLY 

050 



OUBROUTINE SIVF 

SIV 

001 

C 


SIV 

002 

c 

influence FUNCTIONS , REFERENCE •• RUilCRT PP| B••S9 

SlY 

003 

c 

APPLIES EBUATIONS FOR IEHU!NF1NIT| VORTfX FILAHEnT 

SIV 

000 

c 


SIV 

005 

c 

COMMON STATEMENTS 

SIV 

004 


COMMON /TQlRNC/ TOL 

SIV 

007 


common /FLVFR6/X1|YUZ1*y2»Y2iZ2«XP»YP»ZP«FUiFV«Fm>AXi AZ 

SlY 

oos 

6 


SIV 

009 


XXBXPaXl 

SIV 

010 


ZZBZPaZl 

SIV 

Oil 


EbAZ*XX»AX*ZZ 

SIV 

012 


CUPaa(AX*XXaAZ*ZZ) 

SIV 

013 


XSPZSaXX*XX«ZZ*ZZ 

SIV 

oto 


YYmYRp>l 

Slv 

019 

FU«0,0 

SIV 

016 

FVaO.O 

Slv 

017 

F"*0,0 

SIV 

ots 

SICNal ,0 

Slv 

019 

DO 160 Kal,2 

Slv 

020 

Db*AZ*YV 

SIV 

021 

FbAXaVY 

SIV 

022 

RADCL«SURT(0*DAE*E4F*F) 

SIV 

021 

IF (RADCL,LC,rOL) GO TO 90 

Slv 

020 

StGRBtGRTCVYAYYAXSRZSl 

SIV 

029 

CITHTbCUR/SIGR 

SIV 

026 

8HLRBBISR«S0RTd,0«C8THT*CSTHT) 

Slv 

027 

FACTa(CSTHT*l ,0 )/(SmLR*RaOCL)*SIGN 

SIV 

028 

FUaFU«0«FACT 

Slv 

026 

FVaFVAEAPACI 

Slv 

010 

FHaFbAFaFACT 

Slv 

Oil 

YYaYRAYl 

Slv 

012 

SIGNapl.O 

Slv 

on 

RETURN 

Slv 

Ol0 

END 

szv 

019 


c 

e 

e 

c 

c 

e 


e 

c 

c 

€ 


auMOUTlNI RHICICCEKVEU 

THtI SUfROUTINl CAlCUlATfl THE RIGHT HAND GIOC Of 
THE lOUATIONI FOR HORICIHOC VOBTEK fTRCNCTHS, 

THE ARGtiHENT EXVCL II TRUE II eiTERNALLY INDUCE! 

VCLUeiTIFI ARE TO BE INCLUDED IN THE CALCULATION, 

LOGICAL CRVEt 

CUHHON STATCNENTI 

COMMON y iNDtXF/ NFREGfNFLAMf iDfLAMl0,2)*NCFU0)#H|F(10)»HF(lO), 
lMaTART(l0),MCND(10),NFa|OF(10) 

common /FLRDAT/ IDELXZdOIfCGELXZdOltVrOOflOIflPHIFdO)# 

ICRHIldf) 

COHHQN y MNRDAT/ y(S0)«R8lMLE(S0),P|lMTE(}0)*tPHlNiCRHIi«,TRHlH 
COMMON /IHDU/ H|M,MW,MTOT»HCMl(SO),lMAk,NPUGdO),LAfiTlt}Ol 
CMMON yCPDAT/ ALPHAL(il0)*XeP(ai0)«VCP(ll0)fZCP(l»0), 

1 UC.RML<150)|I*LPML<2IO) 

COMMON yRiZDI/ CIR(2SOl*UCl(29O)fVCI(ll0)iHU(29O) 

COMMON /ATAKyllNALFfCOlAlF 

RIGHT HAND IIOE FOR HlNG CONTROL POINT! 

1F(EKVEL> 60 TO «6 

LOOP OVER MING CONTROL POINT! lOR CAlE PITH NO EXTERNALLY 
INDUCED VELOCmCI 

IACPp8INALI*CPMXH 
DO MO JalfMN 

00 CIR(J)B lACP *CALPHL(J) * C06aLF«SALPHL(J) 

GO TO II 

LOOP OVER nING CONTROL POlNTI FOR CAGE MlTH EXTERNALLY INDUCED 
VELOCtmi INCLUDED 

09 CONTINUE 
00 90 jRlfMti 

90 ClR(J)0((IINALF«hCI(U))*CPHIki ♦ VEl ( J) •IPHIN) «CALPHL ( J) 

1 ♦(COaALf«UEKJ))*)ALPHL(J) 

99 IF(NFLAPS,|Q,0) RETURN 

RIGHT HAND |IDE FOR FLAP CONTROL POINTS (IF PREIEnT) 

LOOP OVEN FLAPS 

DO so JFaUNFLAPt 
CPHiCRHIF(JF) 


RHI 001 
RHI 002 
RHI 001 
RHS 000 
HHS 009 
RHS 006 
KHI 007 

RHS ooa 

RHS OSO 
RHS 610 
RHS Oil 

RHI 012 

RHS on 
RHS 010 
RHI 019 
RHS 016 
RHI OIT 
PME SiS 
RHI m 
RHS 020 
RHS 021 
RHS 022 
RHS 021 
RHS 010 
RHS 029 
RHS 026 
RHI 027 
RHS 02S 
RHS 020 
RHS 010 
RHS Oil 
RHS 012 
RHS Oil 
RHS 0141 
RHS 039 
RHS 036 
RHS 017 
RHS 03S 
RHS 016 
RHS OfiO 
RHS 001 
RHS 002 
HHS 001 
RHS 000 
HHS 009 
RHS 0R6 
HHS 007 
RHS O0S 


SPMISPMJF (JF ) 

CDXZsCDELXZ(JF) 

SDxZtSOEUZCJF) 

cadx*corZ«cusalf«soxz*sinalf 
SADxacDXZ«91NALf ♦SDAZtCUSAUF 

da»sadx*cph 

OC«CPm*COXZ 

DOaCRh*SOXZ 

m8»m|tART(JF) 

Mt«M|HO(JF) 

IFitXVELl GO TO T5 
C 

C LOOP OVER CONTROL POINTS ON FLAP WITHOUT EXTERNALLY INDUCED 

C VELOCimS 

c 

DO TO J»mI»ME 

7 0 CIRU)aDA*CALPHL( J)«CAOX*SALPHL(J) 

GO 10 90 
C 

C LOOP OVER CONTROL POINTS ON THIS FLAP FUR CASfc nITH EXTENNaLLT 

C INDUCED velocities INCLUDED 

C 

79 CONTINUE 

DU SO JRHS|M| 

CAL«CALPHL(J> 

SALalALPHL(J) 

SO CIR<J)mOAACAL*CADX*9AL*MEI(J)*(DC*CAL»IOXZ*SAL) 

1 * VE2(J)*SPH«CAL • UE!(J)»(SAL*CDIZ«D0*CAL) 

90 CONTINUE 

return 

END 


HHS (j«9 
RHS 090 
RMS 091 
RHS 092 
«H3 u5I 
RHS OSa 
RHS 099 
HHS. 096 
RHS 057 
RHS 096 
HHS 099 
RHS 060 
RHS 061 
RHS 062 
RHS 061 
RHS 06li 
RHS rjbS 
HHS 066 
RHS 067 
HHS 066 
RHS 069 
RHS 070 
RMS 071 
HHS 072 
RHS 071 
RHS 070 
RHS 079 
RHS 076 
RHS 077 
RHS 07S 
HHS 079 


SUSROUTINE L1NE0S(N,A) 

LIN 

001 

DIMENSION A(N,n),IP(100) 

LlN 

002 

common /IINSOL/IP 

LIN 

OOi 

IP(N)al 

LlN 

UOu 

DO 6 xal,N 

LlN 

005 

IF(M«E0,N)6a TO 9 

LlN 

U06 

MPltR+1 

LlN 

007 

MtK 

LlN 

008 

00 1 laKPlfN 

LlN 

009 

continue 

L1<4 

010 

IR(K)aH 

LiN 

01 1 

IF(H,NS,K)]P(N>aalP(N) 

LlN 

012 

TaA(M.K) 

LiN 

Oil 

A(H»NlaA(K,iO 

LlN 

010 

A(K,K)aT 

LIN 

019 

IF(T,eG,0.}S0 TO 9 

LIN 

016 

DO 2 IbKP1,N 

LIN 

017 

A(IiX)aaA(I,K)yT 

LlN 

018 

DO 0 JtHRlfN 

LlN 

019 

TaA(M^j) 

LIN 

020 

A(H, J)tA(K, J) 

LIN 

021 

A(K,j)aT 

LlN 

022 

IF(T«rO,e.)GO TO 0 

LIN 

023 

on 1 laKPlrN 

LIN 

020 

A(I,U)aA(t,J)*A(l,K)*T 

LlN 

029 

continue 

LlN 

026 

lF(A(K,R),|6,0.)IP(N)aO 

UlN 

027 

continue 

LIN 

026 

return 

LlN 

029 

END 

LIN 

030 


9UBHUUTIMC lOLVt (B,Afh) 

SOL 

001 

dimension PCI) 

SOL 

002 

DIMENSION A(N,n) 

SUL 

003 

common /LU90L/IR1500) 

SUL 

004 

IF(N,CQ.1)CQ to 4 

SOL 

009 

NHl rN»1 

SOL 

00^ 

DU 7 KBWNMi 

SOL 

007 

KPlaX^l 

SOL 

006 

HalP(K) 

BUL 

009 

Tb§(M) 

SOL 

010 

B(M)pi(R) 

SOL 

on 

8(K)bT 

SOL 

012 

DO T iBRPliN 

lOL 

013 

8(t)B!(n«A(IiK)*T 

SOL 

014 

DO » KlBliNMl 

SOL 

019 

KMUNsKB 

SUL 

014 

KaKMi^l 

SUL 

017 

i(K)aBlK)/A(H»M) 

iOL 

OIB 

Tb»B(k) 

SOL 

019 

DO B ItlflMl 

SOL 

020 

Ba>Pi(l)TA(l|K)*T 

SUL 

021 

Bn)PBn)/A(nn 

SOL 

022 

RETURN 

SOL 

023 

END 

SOL 

024 




I 


c 

c 


c 


aUftROUTIN( LOAO(CXVCt) 

COMMON ITATrHlNTI 

common /VDRFOH/CXgU2SO)fCYBL(atO)»CZ8L(I50)fCYTlL(290)fCVTLR(2%0> 
1 I CZTLU(2IO)rCZTLR(2IO) 

COMMON /RVrLt/UP«YFrMR 

COMMON /RtlOi/ ClR(2SO)fUn(250)»V|X(a90),MtI(250) 
common /BLOXT/ XBLC29OlfYeL(|)6).ZBl(250)iTPI](250]fS"(2S0) 
common / "N$DAT/ Y(|0)»R«ltate(iO)*R|lNTe(30h8RMlM«CRHlN|TPHZM 
COMMON ^ZNBCI/ M|N,MW,MTOT,NeMI(}0),IM*X,NF6EC(S0)iLA9TP(l0} 

COMMON /TLDAT/ X1ER()0)#XTEL(S«)»niR(2SO)«YTLR(290)*ZTLR(250)* 

\ XTLL(a90)«VTLl(2SO)iZTlU2l|) 

COMMON /ATXK/ SINaLP fCOIALF 

common / INDEXP/ NPRE6«NFUAP|,IOPLAP(l0f2}*NCF(U)iM|F(l0I«MP{|0}» 
lM|TART(ie}|M|NO(10)|NFIieF(i«) 
common FFltOAT/ IDtUXZaO WCOELXK ID » YF (JOaO) (IPMIF ( 1 0) » 
ICPHIFUD 

COMMON /FTlDAT/ FTlXR(29O)iFTLXL{2SQ)rFTLZR(290)«FTLZl(8IO) 
common /tOCONt/ CONA(250)iCONBR(2»0)iCONBl(890)fT|MP|T|MR 


LOBICAI. CIVIL 

DIMENIION VLMO)*VR(10)«MR(10)f "L(10)( 6AMFHR(10)r 

t 6AMPAR(}0)»CAH|UMUO) 

CALCULATC FORCE COMPOnENTI (N •!, Y» AND «Z DIRECTION! AT 
•OUN| Lie MIDPOINT! ON NINS 


CPIAsCPHIM*!INALF 
IPCAMPMInaCOIALF 
CPCAbCOIaIFACPhIh 
DO 100 JHB1«MH 
TPlJaTPIHJN) 

CALL vEuiUM(XBUjM),YBL(jM),2BL(JN)) 
tF(,NOT,EXVCL) QO TO 10 
UPiUPaUCHJm) 

VPbVPavEKJM) 

mPbmPameKJh) 

10 FACTfCONA(,;M)*CZRNw) 

CX!L(JH>M*PACT*(CPIa«MP*CPM1m«Y»a!Ph1m) 

CTBL(JM)flFACTt(BPCA«UP*SPMlh*(>tP»llNALF)tTP|J) 

CZBL(JH)BFACT«(VP*TPSJtCPCA»UP*CPHlh) 

100 continue 

IF(NPlaP!,EB.O) 60 TO 201 


LOO 029 
LOO OSO 
LOD OM 
LOO QE2 
LOD on 
LOO OSa 
LOO on 
LOD OU 


LOD 017 
LOO 01! 
LOO 919 
LOO 090 
LOD ORt 
LOD 042 
LOO 041 
LOO 044 


LOO 045 


c eaut^p LCC mjopc'Int! flapi 

c 

C LOOP nvER FLAPS 

c 

CU 200 JF«1,nFlaP8 
CDXZiCDfLXZ(JP) 

SOXZaSOELXZ(JF) 

CSUHaCPXZ*CUIALF»90IZ*SINALF 

SSU"aCDXZ«!lNALF«90XZ*COSALF 

cphbcphif(jf) 

SPMaSPHlF(JF) 

CP9AFbCPH*|JUM 

9PCAFalPH*C!UN 

CPCAFaC9UM«CPN 

M9aM9TART(JF) 

MEaMCND(JF) 

C 

e LUDP OVER BOUND LEG MIDPOINT! ON THI! FLAP 
C 

DO 1«0 JCaM8|ME 
TP!JaTP91(JC) 

CALL vCL8UH(XBL(JC)«YBL(JC)*ZBL(JC)) 

if(,noy,£xv£u go to no 

UPaUP*UCI(JC) 

VFfVPtvCKJC) 

MPaitp*NEl(JC) 

C 

C rotate U and H to lie in THI! BLAP COORDINATE !Y!TlM 

c 

110 MUPUP 
NMaMP 

UPa»U«C0XZ«"Nt90XZ 

MPaNH«CDxZa*>U*SDXZ 

FACTaClRCJC)«CONA<JC) 

CX!L(JC)BFACTa(MP*CPH«CP!AF«VP4!PH) 

CYBL(jC)aFACT*(8PCAF«UPa!PH4(MP«98UM)*TP!J) 

CZBL(JC)tFACT*CVP*TP9J*CPCAF-UP*CPM) 

140 continue 

200 continue 

201 continue 
C 

C LOAD! ON «1N6 TRAILING LEG POINT! 

C 

ncmCbnCNUD 

00 lo rcMfifNCA'c 

CALL VEL!Um(FTLXR(ICm}*YTLR(1CM)«FTlZR(1Ch>) 

IF(.N0T,EXVEL) go to 20 

VPBVPaViKICH) 

MPBNPaHiniCN) 

20 VRCICNIBVP 
HRUCNlBMP 

CALL VELIUM(FTLXL(ICm)*YTLL(1C>OiFTL2L(ICm}) 

IF(»NDT, CIVIL) GO TO 30 
VPBVPaVCI(tCN) 

MPaMp^MCKICM) 

30 VLdCwIlVP 
!0 ML(1CM)B«P 
C 

C LOOP OVER NIN6 CNQRDhXII ROm! 

C 

IBASEbO 

DO 1200 I!aal,H!» 
nCMCbNCMI(I!m) 

!F(IIw,EG,1) go to 9S 
NC»M«NCNl(l!M«n 

JUBminO(NCnCiNCmM) 

do *0 JBlfJU 
VR(J)bVL(J) 

40 MRCJIaMLCJ) 

IF (NCkC.Ll.NCa'*) CO TO 44 
JLBMCwMbI 

DO 49 JiJL»NCnC 
1«1BA$C«J 

CALL VELiUM(FTLXR(niVTLR(I)«FTLZR(I)) 

1F(,N0T,EXVEL) GU to 42 

VPBVP*VtI(I) 

hP8rP4hB1(I) 

42 VR{J)avP 


tUD 044 
LOD 047 
LOO 0«B 
LCD 044 
LUD ObO 
LOD USl 
LOD 092 
LUD 093 
LUO 094 
LUD 099 
LUO 094 
LOO 057 
LUO 096 
LOD 094 
LUD 040 
LOD 041 
LOD 042 
LUO 043 
LOU 044 
LOD 049 
LUO 044 
LUb 067 
LCD 046 
LCD 044 
LUD 070 
LOD 071 
LOD 072 
LOD 073 
LUD 074 
LOD 079 
LOO 074 
LUO 077 
LOD 07! 
LUD 079 
LUD 080 
LUD UBl 
LUD 062 
LUD 063 
LUD 064 
LOD 069 
LOO 064 
LUb 06T 
LUO 066 
UOD 064 
LUD 090 
LUD 091 
LOD 092 
LOU 093 
LOD 094 
LUD 099 
LOD 094 
LUO 097 
LUO 09! 
LUD 099 
LOD 100 
LUD 101 
LOO 102 
LOD 103 
LUO 104 
LCD 109 
LOO 104 
LOO 107 
LUD 106 
LOO 104 
LOD 110 
LUD 111 
LOO 112 
LUO 113 
LUO 114 
LUD 119 
LUD .114 
LUO 117 
LUO MB 
LOD U4 
LUO 120 
LOD 121 
LUO 122 
LUO ill 






95 PR(J)*xP 


lUD 

129 


9* continue 


LUD 

125 


DU 70 JilfNC«C 


luo 

12* 




LUD 

127 


CALL VlLSUM(rTLXL(n,YTLL(l)fFTLZL(I)) 

LUD 

12* 


XF(,N0T,EXVCL) 60 TO *0 


LOD 

129 


VPiVP^VIKX) 


LOO 

110 


•»Pattp«H|l(l) 


LOD 

111 


*0 VL(J)aVP 


LOO 

112 


70 »L(J)aMP 


loo 

Hi 

c 



LUD 

119 


95 DELDahbOiO 


LOD 

115 


DO UOO XC««lfNCMC 


lQO 

119 


XaliASI^XCH 


LOO 

117 


CXRRaClRCn 


LUO 

110 


0UMAapEL6AM«0,75*CXRR 


loo 

119 


TACLaDUHA«CON5L(n 


LOO 

190 


FACRa«DUHA*CONSa(I ) 


LOD 

191 


CYTLL(1)pFaCL*(mL(1CM)*0INALFJ 


LOO 

192 


CYTLR(I)9FACR*<HR<ICM)«tXN*LF) 


LOO 

191 


IF (I5M|ED,1) CYTLR(XT9*CTTLL(I} 


LUD 

199 


CZTLLn)9FACL*VLUCM) 


LUO 

195 


CZTLRCllaf ACR*VRUCm) 


loo 

19* 


DEL6AHaDEL6AM*CIRR 


LOO 

197 

1100 CONTINUE 


LOD 

190 


6AH|Un(IIH)rOCL6AM 


LOO 

199 

1200 IOAS|alSA0EPNCHC 


LOO 

159 

c 



LUO 

ist 

c 

TRAIL1N5 Ltfi LOADl ON FLAPI •• LOOP 

OVER FLAP0 

LOO 

152 

e 



lod 

151 


XF(NPlAPI.I6,0X pcturn 


LOD 

Iff 


DO 000 XFL9liNPLAPI 


loo 

155 


XPntFLAP(IFLi2),6T,l) 60 TO 1x2 


LOO 

11* 

c 



LOO 

117 

C 

TMII 11 THE F1R0T PLAP AFT OF THt.H| 

[Ml« COMPUTE 6AHNA 

LOO 

110 

c 

eONTRlBUTlONO FROM NtH6 VORTICfeU AMI 

w 

LOO 

159 

e 



loo 

190 


MlaMITARTdFL) 


LOO 

101 


M0FF9HSr(IFL) 


LOO 

1*2 


NCFFaNCF(XFL) 


loo 

191 


Y0TRTFa7F(l,lFL) 


LOO 

190 


DO 105 IlMMalfNSM 


LOD 

105 


J0Ma|0NN 


luo 

199 


If (Vn0MM)«LI,Y0TRTF) 60 TO 199 


LUD 

197 


105 continue 


LOD 

190 


10* 6AHFMR(1)sGAM|UM<JIH) 


LOO 

199 


DO 107 IIMFR2«M|FF 


lod 

170 


J0HRJ0H*! 


LOD 

ITl 


6AHFHp(X0MF)a6AMOUM(J|M) 


LOD 

172 


107 continue 


lod 

171 


60 TO 390 


LOD 

170 

e 



LOO 

171 


THERE XI A FLAP AHEAD OF THIS ON|, 

COMPUTE lANMA CONTRXCUTXONS 

lod 

179 

c 

FROM THE FLAF AHEAD 


LOD 

ITT 

c 



lod 

170 

c 

LOOP OVER CH0RDMI9E ROM0 QN TH|0 FLAP 

LOO 

ITf 

c 



LOO 

100 


112 IFLHalFL^l 


LOD 

101 


NCFFaNCF(IFL) 


LOO 

102 


MlFFaMSFllFL) 


LOD 

101 


hIbHSTART(IFL) 


LOD 

10# 


DO 115 X0NPal,H0FF 


LOO 

101 


6AMFHR(ISHF)a6AMf ARdSMFl 


LOO 

10* 


115 continue 


lOd 

107 


190 CONTINUE 


LOD 

100 

c 



loo 

109 

c 

COMPUTE the trailing lei LOAD! ON ThIO FLAP 

LOO 

190 

c 



lod 

191 


COXZacOELXZClFLl 


loo 

192 


lOXZaSOELXZdFL) 


LUO 

191 


0ALFPb01NALF*CDXZ*CDOALF*0OXE 


LOO 

199 

c 



LOD 

195 

e 

RIGHT AND left vELQCITIEI ON FIRST 

ROM OF This flap 

LOD 

19* 

c 



loo 

197 


1X9HS-1 


LUD 

190 


DO 390 ICmb1,NCFF 


LUO 

199 


i«n«iCM 


LOO 

200 


CALL VfcLSUM(rTLXH(n,YTL>>n)»rTLZAm) 
lft,»«OT,EliVtL) UO TO m 
UP«UP»UC1(1) 
vp«vP4Vfnn 

195 mM(1Cn)bnP«CDXZ»UP*SOXZ 
VA(XCM}aVP 

CAU VlLtUPirTCXtCDiTTUCn.f TLtUX)) 

IF(tNOT,EXVCU CD TO 19* 

UPaUP«UI2(M 

vPavP4vei(n 

ApKHP^Nenn 

19* HLnc*)«PP*CiXZ*UP«90XZ 
19* VUaCHlPVF 

c 

c LOOP OVEP CHDPDhIIC 90*1 ON TH|I Plk9 *• LOAD CALCULATION 
C 

DO 5(10 IlPPlfMSPP 
XV*0 

If (18P«Cb.l,AND,TTLR(H|).6I,0,0) iVPl 
IfCUti.lD,!) (iO TO iOl 

€ 

C UPDATF 9I6MT AND LCfT veLOCITiM 

c 

nRM 8 *(tln»i)*NCff*l 
DO «O0 XC"al*NCff 
V9aCM)*VL(ICP) 
p9(1Cm)«NL(XCP) 

UtlAlCH 

CALL VtL*UH(PTLXL(I)|VTLL(t)»fTLIL(!)) 
tf(«NOT,EXVIU 00 TO 199 
UP*UP«UI!(X) 

VP*VP*V|t(2> 

riPaHP^HltU) 

199 NL(ICP>9PP*CPXIAUP*IDXZ 

900 VLUCN)*VP 

901 COhTtNUI 

e 

C LOOP OViP TPAUIND Leo PDINTI IN ThiI POh 

0 

PEL6MP*0AMfNR(t|») 

np(xip*o*NCff 

DO 950 ICNpliNCff 

IPIUXCH 

ClPPaClPin 

DUPA*e,f5*ClPP 

f*CR*>(DlLOHP*DUHA)*CON|P(II 
fACL* toeLOP*»DUPA)»CONOLU) 
CyTLL(:>PfACL«(PltICN)*lALfP) 
CyTl9M>«FACP*(PP(lCP)*|ALfP} 

If UT»fc0.l> CTTL"U>P*tTTLWn) 

CZTLL(X)PfACL*VLnCH> 

C2TLP(I>*FaCRpvP(ICHX 
DCLOMpaDeLOPPACXPP 
*50 eONTXNUl 

OAPFAR(XOH)POtLOH9 
500 COHTXnUI 
•00 CONTXNUe 

return 

CND 


LOO set 

LOD 291 
LUD 201 

lOu 2oa 
LOD 205 
lOD 20 * 
LOD 207 
LOD 209 
LOD 209 
LOD 210 
LOO tit 
LOD 212 
LUO 211 
LUD 21* 
LUD 215 
LOD 21* 
LUO 21T 
LUD 218 
LUD 219 
LUD 220 
LOD 221 
LUO 222 
LOO 221 
LOD 22* 
LOD 225 
LUD 229 
LOD 227 
LOD 220 
LOD 229 
LUD 210 
LUO 211 
LOO 232 
LOD 211 
LUD 21* 
LUD 215 
LUD 219 
LOD 217 
LOD 210 
LOD 219 
LUO 290 
LOD 291 
LUD 2*2 
LOU 291 
LUO 299 
LOD 295 
LUD 29* 
LUD 297 
LUD lift 
LOD 299 
LUD 250 
LUO 251 
LOO 252 
LOD 251 
LOD 259 
LUD 255 
LOD 259 
LOU 257 
LUD 250 
LUD 259 
LUO 2*Q 


•URROuTINE FQRCE0 FUR 001 

FOH U 02 

THX0 8U0POUTXNE CALCULATC8 THE 8PANNI8C LOAD DXBTRUuTIONI AND FOH 003 

TH| FORCES AND MOHCNT8 FRQM THt FOHCE0 ACT|N6 ON THC VORTEX FUR 009 

FILAHENT8 FOH 005 

FUR 009 

common statements FUR 087 

FUR OSS 


tO»'*'ON ,Cl'SiL> 

ZniOkT/ ihi. (250 J » »r*U?SO J , IHJ. (^SO) . TPSI («!Sn ) . 3« r^50 j 
/ -►GOAW v(i<l>i‘'8I-LFfVn»P5I*TF.(J0)»SCHl wLP»-Ii‘,TP»-I‘ 
COHMOh /iNpei/ , kf M (30), I»‘l* f» f iO) iL*bTM >n) 

CUNmon / ^FfiE(,,^FL*P8,n?KiPll0.2),‘tCFnr3. 

lHST*RTMO),MFSDn0)|NFS)CF ( 101 
CUH^'Qtc /FL*DAW SntL>2n01(Cn(LXZ(10)f vF (30,10)»SPHip nci I 
ICPHIF(IO) 

CUM»<ON /MlDM/ FTLxHl?!iO)*FrLXU2SO)»FTL2H(2bO)»FTUl(^^U} 

C^>‘H0^ /HtFGUA/ SSPANfSPfcf *eiTFl.iXK,2M 

CUM*'l'N /C‘*UP05/ CHROL^nOl^CPnOTmoifCTlPK 10) 

CnuMUN /ViiHf OP/CXBl(250),CtBL(2bO)»CZ*JU2'>0)»C'rTui.(«*50),Cl'TLN(250) 
1 I CZTLL(2$0),CZTLR(?SO) 

COXnO>4 /TIOAT/ xTEP(301,xTeL(30),XTLP(2S01fYTLP(250),ZTLP(2SO), 

1 x1LL(2bO),vTUU250),ZTlL(2S01 

COHPQF. /FtAPU/XtalLt (101|VKILLno)*Z*<lLEnO)»S«PFLt(IO) 

CUMMOk /PP|{i«r/F.PRES^,»<PPi:8F no).EL*Pix[?50),XLE(30) 

COH**ON 

DIF<EN6T0»' |TxU»'t»^T 
DIMEMSIUN xcr20),PPEft(20) 

FQRW4T iTATfcMFNTS 

701 FORMATtlHl,llX,39HAERODTNAMlC LOAOIN6 RESULTt FQR alpha afF4.2i 
1 5H Of*.} 

Hi fOI<MlT(//)t<>iOHREFEKtNce UU>NTni(*/2}> > UHKlxg SFlN, a.3)l,aHiRl« 
1 i»I,tHUN(TH/ii«i3F|l,Sl 

703 Fa»H3TI//27l,27MSPA>itiIsl L0»0 0U7Rl8uTIPn5/iJX37M«««*t*«««* LEFT 
IhJNC PANEL •■■A***A**3 

70U FOPHAT(aO<i3HLOCAL/18«7H(7ATIONi3X,r7<T/(8/2)i3X,tHCHORDi C>2X, 
M3 HCNUP«aC/(2*8)iPX,SHCNORn>8X2HCA3 

705 F0IIHAT(t«ISiFI2,SiF 11,0 iF12,S,2F 12.8) 

706 FORPATI/22X10(lHA),lI,6H8LGinN.12,SH FLAP, 12, IX, I o ( I H>) 1 

707 FnR"AT(///21X,(l0Hi.IN0 ALUNt FURCt AND nDhEAT COEFF U I E N7 81 

706 F0P"A7t2»x<2«N(.ING CU0801NA7E 3787rx)) 

70» F0PNA7(15X,3MCN>l|PX,lMCA«,9X,3t>CL».«X#3HC0P|6X,3HC"») 

710 F0PNAT(»X,SP12,5) 

711 F0»6AT(///13X,78h1N0IVI0UaL FLAP FORCE AKO moment COEFFICIENTS A"0 
I LOCATIONS AT mmICh FORCES ACT/26X,52HCFlaP COORDINATE SYSTEMS • F 
2LAP lies in XF,YF PLANE)/lA,llNREliION FLAP,5X,3hCNF,T«,TMXFlCNF), 
35X,7WYF<CNF),TX,3HCAF,7X,TMYP(CAF),rx,JMCYF,TX,TNXF(CYF),TX,JhC"F) 

712 FaRHAr(lX»jtt,15,eF12,5) 

711 PQRHAT(///lRXf92HCOMPLETE COF<F !6UHAT!0 h FORCE AND MOMENT COEfFtCU 
INTI) 

riH FORMATnil»2HCK»10Ri2MCA«10X«2NClit0X,2MCD»10X,2HCP|6Xf 10MCD/(CL*C 

ID) 

715 FORN4T(«Kf«rt2.5) 

71* F0RmatC|H1,s«x,22hPRE83URE D1STRIBUTI0nS/*1X,9hDEiTa P/Q] 

7|T FURMAT(/SX,10(lH*)f UrllHIpEFT «1N6 PANEL » IX, 10 ( IH«) ) 

716 FURMAT(/IX,THr/(B/2),2X,0HCHORO, O 

7|9 faRHAT(2F10,9,7X,UHX/Ca,F9|S,9llO|S/SOX,10F10,5) 

720 FUHMAT(21X,10HDFLTA P/Q«, F9,f , 9F 1 0,S/10X , | OF 1 0 ,S 1 

721 FORMArdH ) 

722 FORMAT(/9X,10MHt),lX,*HREQIQN,12«9M FLAP, 12# H , 10 UH*) 1 


DATA RT00/ir,29b7799/ 


|REFT0a|RfeF/(2,*IPAN) 
ALFaA|lN(STMALF)*RTOO 
MRITE (9,701) ALf 
•R1T|(9*702) IPAN,|REF,REFL 


calculate «1NC LOADS 

»RlTf (9,701) 

mRITE(9,70<i) 

CUNB|RFFtB/(2,«CPHllk) 


c 

c 

C 


LUQP (ivEH CHOMDalSE RONS 

IBAIEbO 

DO 1 ]a?,lMAX 


C 

C 

C 


CVSap, 
tM*e, 

C A&bq , 0 

iHLtifvnjtTd#!)) / (?,*.5 spa» ) 

N$lAT«I«i 

CHLCCaCHHLL-(f'STiT) 

LOUP nvpiJ ARE* elements in RO* 
NCM*>aK'C*I(NSTAn 

on 2 Nil ,NC»N 

JJalBiSE^M 

CYSacvlNCYBLC JJ)«0»b*(CvTLL(JJ)«CYTLR(JJ)l 
CNlaCNSNCZ6L(JAn«0,S*(CZTLL(JJ)^CZTLR(JJ)) 
CASBCASfCxeL(JJ) 

2 continue 

TAiCUN/8i»(JJ) 

CYSaT**CTI 
f NSaCNltlA 

CNONMgCN|*CPMl N«C YS*SP n|* 

1BASEb1BASE*nc»n 
CN aLNaRM*2(0*SPAN/CNLUC 
CA|BCA8*Ti*2,o*8PAN/CHLilC 
1 MRITE(9,70b} NSTAT,YBUT,chLOC,CNORm,Cn ,CaS 

CALCULATE FLAP LOADS 

LOOP OVER FL*Pl 

1F(nFlAPS,EU, 0) CO TU 50 
DO 20 NaJ,VFL*PI 

"RITl (9,709) IDFLAP(N,1 ),IOFLAP(n,2) 

•RITE (9,704) 

ncffbnO (N) 

CPHIFFaCPMlF(N) 

SPHIFFbSPHIF(N) 

CUNb|rEFTB/2,o 
IFMsmsF(N)*1 
CPOOTbCROUTF(k) 

OCmI!RObcRDOT*CTIPF(n) 
YlNbRDaYF(l,N)/(2,o«|SPAN} 

JBLbM|TART(n)«i 

C 

LOOP OVER CHOhD^ISe RO"» ON ThH FLAP 

DO 30 Ip 2#IFH 
NSTATalal 

YB0Ta(YF(I,N)«VF(NSTAT,N))/(2,tSBPAN) 
CHLUCbCROOT*(YBOT»V 1NBRD )*DCHnR0 
CYSaO.O 
CNSaO.O 
CASao.O 
C 

C LOOP uvER area ELEMENTS IN THiB ROh 

C 

DO 40 JPifNCFF 
JBLBJBL91 

CYtBCY$9CYBL(JBL)«0,5«(CVTLL(JBL)«CVTLR(JBD) 
CNBBCNl«-CZBL(JBL)t0.9«{CZ1LL(JBDFC2TLR(jeL)) 
CASacXBL(JBL) 

40 CQNTlNUt 

TAbCON/InIJBL) 

. CYSbTa*CY8 
CN5bTa*CnS 

CN0RMbCN8*CPNIFF^CYS«SPhiff 
CNBCNaRM*2,0«SPAN/CHLUC 
CASbcA8«T**2,o*SPAN/ChlUC 
ID •RlTf(9,709> nSTAT,YBUT,ChLOC,CNORh,Ch ,CAS 
20 CONTINUE 

calculate mINC forces and moments 

SO CN»a0,0 
CAmbO.O 
CRmbO.O 
DU 90 Jal|M» 

C'XBImbCXSL(J) 


fUN oe« 

MJk obt 
HJR OSB 
Kaf* 069 

PijM 090 
FUR 091 
KUh 092 
FL-N 09i 
FCM 944 
FOR 09S 
FUR 099 
FUN 097 
FOR U94 
FUR 099 
FOR 10(J 
FUH 101 
FtM 102 

FUR lOi 
FUR iru 
FUN lOS 
FUN 109 
FUR 107 
FUH 108 
FUN 109 
FUR no 
FUH 111 

FUN U2 
FOR US 
FOR 114 
FUR 11b 
FU'R 119 
FUN 117 
FUH 116 
FUN 119 
FUR 120 
FUN 121 
FOk 122 
FUR 121 
FUR 124 
FON 125 
FUH 129 
FQR 127 
FOR 126 
FUN 129 
FOR 110 
FUN 111 
FUN 112 
FUR 111 

FUN lltt 
FUN liS 
FflR 119 
FUN 117 
FUN IIB 
FUR 119 
FUR 140 
FUR 141 
FUf< 142 
FUN I4l 
FUN 144 
FUR 149 
FUN 149 
FUR 147 
FUR 19P 
FUR 149 
FUH ISO 
FUN ISl 
FUN 152 
►UN Ibl 
FUR 154 
FUR l*iS 
FUR 159 
FUN 157 
FUR 156 
FUR 1S9 
FUR 190 
FUR 191 
FOR 192 


C 

C 

C 



Sa CZPL»iCZdL(J) 

CZTLPmbCZTlBIJ) 

C/TLL«*CZTtLfJ) 

IF CJ,Lki**t*-i ( I ) ) 

CA»>CA<*tCX«iu* 

CNiisCN^^CZBL^^CZtLR-^CZrLl.** 

CM»iC«>'+(XBL(J)-*»-J*CZflL»*UHL(J)-ZH)«c»PU'i*(FTLKR(J3**Mj«cZTLH* 
I ♦(FTLXLCJ)-X»')*CZTi.i.»‘ 

60 CUnM^iUZ 
C^*>62,«C*^« 

Cams2,*cA'« 

CM».»2,«CH»/RtFL 
CL)»aC»^**CljSALF»CAi>*SINALf 
C0haC^»*9lNAl,F*CA6*C0S*Lf 
6«|Tt (6*707) 

•mite (6*706) 

•RITE (6<70R> 

• R|TE(a,7|o) CN-»C*N»CL"»C0h,CM*. 

CLTbCL- 

coT«cn« 

C'*T»Cm»i 

c 

C. CALIULAIE FLAP FCIMCE AMD MQHENT6 

IF(NFL*R®*10,0) 60 TU 100 

C LOOP OVER FLAP! 

C 

•RITE (6*711) 

DO 70 MsUmflaPS 

CnF«0,0 

CAFbQ.O 

CVF60,0 

C«M0,0 

Cmknf«o,o 

CMYNFaO,0 

CMZAFiO,0 

C«ZYF«0,0 

mCFFsnCF (M) 

Ht ■HITART(N) 

HC bmENO(n) 

CDXZ6C0ELX2(m) 

SOXZaSOlUXZCN) 

XmLbXhIlMN) 

YWLiYflLMN) 

ZmL6ZpILC(N) 

CPM1FF*CPhXF(N) 

SPH1FFb3PH1F(M] 

9PI0«SPhIFF*I0XZ 

3PCDb9PHIFF«CDXZ 

TPi2LC«7AN(|6PFtC(N)) 

CPIlLE6C09(SiiPFLE(N)) 

CAP06C06AtF6CDXZ«llNALF*SDXZ 

SAPDa9lNALF*EDXZAC0SALF*90XZ 

C 

C LUOP OVER VORTICES ON THU FLAP 

C 

DO 60 JrhS«he 
CX 6LFaCI»U(J) 

CYBLFiCvaKJ) 

C2BLF>CZBL(J) 

CZTLRFiCZTLR(J) 

CZTLLF6CZTLUJ) 

CYTLRFbCYTlB(J) 

CYTLLFiCYTluJ) 

KaJ»MS«l 

IF (K,GT«NCFF,OR,YF(l,N),NE,o,fl) GO TO 81 

CZTLRFiO.O 

cytlrf«o,o 

61 continue 
OXmBLiXBL(J)*X»L 
OYhBL«YSU(J)»Y»L 
DZ66L6ZBL(J}«Z»L 
OXtiTLR6FTLXRCJ)«X*rL 
OY»TLR«YTLR(J)»Yi»L 
0Z6TLR6 FTLZH(J)-ZkL 
UXwTLL*FTtXL( JJ-X6L 
DV»TLL«YTLL(J)*Y»L 


163 
FUN lb<l 
FUH IbS 
► L»h l6b 
FOh 167 
Fun 166 
FUN 169 
FOk 170 
FL« l?i 
PON 172 
yi>» 173 
FUN I7a 
FOR 17b 
FON 176 
FUh 177 
FUK 178 
FUR 179 
FOR 160 
FUR 161 
FUR 162 
FOR 163 
FCiK l6ti 
FUR 185 
FUR 166 
fur 167 
FOR 166 
FOR 169 
FOR 190 
FOR 191 
FOR 192 
FOR 193 
FOR 194 
FOR 195 
FOR 196 
FOR 197 
FOR 196 
FOR 199 
FUR 200 
FUR 201 
FOR 202 
FDR 203 
FOR 204 
FUR 205 
FUR 206 
FOR 207 
FUR 206 
FOR 209 
FUR 210 
FOR 211 
FOR 212 
FOR 213 
FUR 214 
FOR 21b 
for 216 

FOR 217 
FOR 216 
FOR 219 
FOR 220 
FUR 221 
FOR 222 
FOR 223 
FOR 224 
FOR 225 
FUR 226 
FUR 227 
FUR 226 
FOR 229 
FUR 230 
FUR 231 
FUR 232 
fun 23i 
,fUR 234 
FUR 235 
FUK 236 
FOR 237 
FOR 236 
FUN 239 


L‘ZfclLL»F TuZL( 

UXf HL»0«-ML*tOlZ-CZ*.RL*90xZ 

DYF 6L«I'VwbL*r >-HlFF*D>r.>L *5“ SO*nZ..»~t •S‘»CU 

0 » F T t p s n r « T iB * c f ' » Z • Z - 1 1 « • S M Z 

^•YFTLR«C7''TLN•CP^'IFF♦J>•!L••$^»Sl;♦DZ^TLP•sPC(• 

OXFTlL 60X«-TLL*CD»Z-OZ*‘TLL*SDKZ 

CVFTLL*0Vi“TLL*CP>’lFF*l>ifi»TLL«SPSO*nZ»TLL*SPCU 

CnF 6 LiCZBLF*CPh 1 FF*CyplF*SPnJFF 

CYFBL*CY«LF*CPMlFF-cZhLF«SPHlFF 

CNF TlP«CZTL‘-F •CPHlFF*CvTLNF#8PHiFF 

C7F TlR«CyTlNF • cP^IFF.c ZTlRF*8PnIff 

fNFTLL*CZTLLF»CPHlFF4LYTLLF«SPHlFF 

CyFTLl«CYTllF*CPh 1FF»CZTLLF *5Ph|FF 

CAF»CAFfCx8LF 

CNF«CNF*CNFflt*CNFTLW»CNFTLt 
CyFiCyF + CYFML + CvF TLRtCVFTLL 

C‘"XNF*CnXNF*OYFBL*CnF BL^OYF TLR*CNF TLR* 0Yf TLL*CNFTlL 
CMyNF,C'^YNF+0xFeL»CNFBL*OXFTLR*CNF TlR*DAFTLL*CnFT[ L 
lNZAF,CMZAFt0rFhL*Cx8LF 

CHZYF6CM2YF*0xF8L*CYFbL*DXFTLR*Crp Tlh*D«FTLL*C 7 FTll 
CHF iCHFtOiaLUJ^XKlMCZBLP-CDXZ-CXRLF^SUxZl-tZaLfJJ^Zw) 

1 • (CZBLF *8DXZ*CX8LF *CDXZ) 

CNFf6CNF*CPHIFF*CYF*8PKIFF 

CLF ■CNFF*CAPD«CAF*8aP0 

COF iCNFF*SAP0»CAF*CAPO 

XFCNFi999,999 

YFCNF6999,999 

YFCAFa999,999 

XFCVFa999,999 

IF (CNF,Nfc,0,0) XFCNFaC*'YNF /CNF 
IF (CNF, NE, 0 , 0 ) YPCNFaCRXNF/CNF 
IF (CAF,Nt,0,0) YFCAFaCMZAF/CAF 
IF (CYf,Nfc,o,0) xFCYFaCHZVF /CYF 
CHFPCNF6(XFCNF»YFCNF*TPSlLt)*CP3JL£/9tFL 
CNF6CMF/REFL 

CLTBCU’Fi.FCLF 

CDTtC[lT*J,«CO» 

CHTaCM7f2,*CRF 
70 continue 
C 

c Calculate complete cunfiguration forces and Ho^tsTS 

100 •RIT|(6,7tJ) 

**RJT£ (6*706) 

•rite (6*714) 

CnT 6CLT6C0|ALF*C0T*8 InaLF 

CATacoTACOSALF.CLTfSiNALF 

CDCL3 iC 0T/(CLT*CLT) 

^ RRIT£(6,715) CNT*CAT,C{.T,C0T,ChT,CDCL3 

C CALCULATE PRESSURE DISTRIBUTIONS 

iMEAOaO 

C 

C "INC pBISSUHf distribution 

IP (NPRtS«,E0,0) CO TO 300 
“RITI (6*716) 
iHEADal 
MRlTf (6»7l7) 

•rite (6»716) 

C 

C LOOP OVER CHCR0HI8E RO*8 

IBASraO 

DO 200 I62*IMAX 
I«6l*I 

YaOTatvn j^vciM) }/(2,o*83p*^) 

CHLOCaCHROL"(lHJ 
xLEEb(XLE(I)*XLEUM)J/2 0 
NCanaNCNI ( J m) 

00 2io KalfNCfiA 


FCh 2ur: 
FOh 2>J1 
FUH 2U2 
FUN 2«3 
FU*i 2<t(i 
FUN 2«5 
FOR 2 un 
F uR 2u7 
FUR 246 
FUR 249 
FOH 250 
FUH 251 

fur 25? 

FUm 253 
FUR 254 
FUR 255 
FUR 256 
fur 257 
FUN 256 
FUR 259 
FUR 260 
FUR ?61 
Fun 26? 
FUR 263 
FUR 269 
FUH 265 

fun 266 

FUh 267 
FUR 266 
FUN 269 
FUR 270 
FOR 271 
FUR 272 
FUN 273 
FUN 279 
Fun 275 
FUR 276 
FOR 277 
FUN 2/H 
FOR 279 
FUH 260 
FOR 261 
FUR 282 
fun 263 
FOh 269 
FUN 265 
FUh 28b 
FUR 267 
FUR 266 
FUR 289 
FOR 290 
FUR 291 
FUh 292 
FUN 293 
FUN 29a 
FUH 2Qb 
FUN 29h 
FUN 297 
FUR 290 
FUR 29Q 
FUR 30y 

FUH 101 

fun 302 
FUH J03 

fur 3(ia 
FUh 30b 
fun 30a 
FUH 307 
FUR 306 
FuR 309 

fur ,110 

FOR 311 
FUN 312 

FOR 313 
FUR 314 
FUN 315 
FUN 316 



JJtlPfcSt*- 

C»*S»C2P'L(JJ)4CZTLS(JJ)*C?HLl.iJ) 

CVS»CyPl(JJHCvTU*{ 

C*«U»)**iCNS*CPh2p*C VS*SP»*I» 
PWC8(k)«CN0Pm«»(<E^/HABF*(JJ) 

^10 coNTiNur 

*>»lTt ’rbUt,tHUUC»<*C(J)#4«l.NC-*) 

■ RMI ffefTIO) (PR£9(J)*J«1*^C*>») 
pRMi (*f721) 
lBASlLtie*SC»M»* 

^00 continue 

C HAP PRESSURE OISTRIBUTIUnS 

C 

ioo IP inflaps.eq^u) return 
C 

C LOOP AVIR fL*PS 

C 

DU Jin NalfNPLAPS 
IF (NPRESF(N],EO,d) SO TO 310 
IF (IhEaD,EQ, 1 ) CO TO 120 
i^RlTE (S>7I6) 

THEADal 

320 »RIU (S|722) IDF LAP(N, U « IDFL aP(Ni 2) 
NRm (SiTlS) 

NCFFinCF(R) 

FNCFFaNCFF 
DO 321 JalfNCFF 
FJiJ 

321 iC;4)t(F4*0,T»}/FNCFF 

jFNa«8F(N)*l 
FSPANsVFn(N)»VFUFH,N) 
VINBRDRYFUiNI/FSPAN 
CRUDTaCROUTF (N) 

DCHUPnaCROOTvCTlPF (N) 

JBL«N9TAHT(N]«t 

CPFBCPHIF(N) 

5PFPSPH1F(N) 

C 

C LOOP OVER ChORO«18E ROnS 

c 

DO 330 l«2flFN 

]HaI*i 

VROT«((YF(l(h}fVFnMrNn/2|0)/8SPAN 

VFSsYROTaYlNBRD 
CHtOCiCROUTtYFI *OCHOKD 
DO ISO KPlfNCFF 
4ILRJBLP1 

CnS«CZBI(4BU^CZTLL(JSL)«CZTLR(JBU 

CYlaCYBL(JBL)«CYTLU(JSl)«CVTLR(JSL) 

CNORPBCNS«CPF«CYS«tFF 

PRES (R)rCR0Rp*8REF/ELA*|A USD 

nRITE t*»7lR) ¥BaT,CHLOC»(*C(J)U«l*NCFF) 
PRm (6«720] (PRES(J)»4«1»NCFF) 

NRITt (8*711) 

330 continue 
310 continue 
return 

END 


BUBNOuTxnE vtlSUM(kXf vy*22) 

c 

C calculates velocities due to vortices and their HANES AT 

c A FIElOPOINT ()ix>yY,ZZ) 

C COnmon STATEHEnts 

c 


» LH 

i\1 


/ *strAT/ T ( JO) »PSI'‘LF ( 10) »PSl*TF(i4) »5N"U,C Mr.J., 

WLL 

oos 


JJB 


CO*•nl.•^ - ,'-THT,nC* 1 (.5C),I» A*,NFSU(30J.L*STF (inj 

wkL 

009 

Hik 

319 


r ns /TLriiT/ »Tr -( J(. ) , * TtL ( JO) , >TLNI?50>» ’'Tl N t 250 ) , 2 T LN ( ?S0 ) , 

vtu 

010 

fUN 

3?U 


1 »Ul (?50 ),yTlL(?5u)»2TLL(250) 

•'LL 

ou 

FUN 

321 


CUM-ci». / IM'C«F/ ^*N^G»^FLAPS, p.’FL AF( J0,?>,<.LF nO)*‘'5M 10 ),n.F DO), 

YU 

01? 

f UR 

Hi 


JNSTFRinOi-E^DUO) jNFSEUF (\Q) 

VEL 

013 

FUR 

323 


CUMNUN /FlPDAT/ 8UfcL«2(10),COtLXZ(10l*VF(JO,lO),5PMlF(!0>» 

VLL 

otu 

FUR 

32U 


icp^iF no) 

VkL 

015 

FUH 

32S 


Ci)NHO(w /nkoaTh/ X>*KHH(30*3)*Y»iKH«(30*3)*Z<'ANN(3u,}},kHKLii(30f 3)f 

VEL 

0|8 

FUR 

32b 


1Y«nl**(50»J>iZ^*L-(30»3) 

«El 

017 

f UR 

327 


CUNhLin /*kO« TF/ X»Kk)F ( iC«2i 10 ) * V«iH>F ( iO* ?* 1 O ) « Z*KRF (Jl «?« 1 0) « 

vEL 

om 

FUN 

326 


1X-kLF(3o* 2, 10)* V^KLF (30,?, l(i),2*iKLF(iO,2«l0) 

VLL 

019 

FUR 

329 


COHNON /»VEl8/UP*VP,nP 

vEL 

020 

FOR 

330 


CURHQm /FLVFP6/Xl*Yl,Zl*K2*Y2*22*lP,rP,2P*FUfFV*F»,AI,AZ 

VU 

421 

FUR 

331 


CUMNO»« /RSIDE/ ClR(?50)*uEl(Z50]fVEl(250)*NEl(250) 

vEl 

022 

FUN 

13? 

C 


vEl 

023 

FOR 

333 


xPaXX 

vLl 

024 

FUN 

33R 


YP*YV 

VEL 

025 

FUR 

33S 


2P»ZZ 

vtL 

v2b 

FUK 

336 


UPaO.O 

VEL 

«?/ 

FUN 

337 


VP*Q,0 

vEL 

028 

FUR 

336 


HPaO.o 

vLL 

Q29 

FUh 

339 


IKASEaO 

VLL 

Olit 

FUR 

3R0 

C 


VLL 

031 

FUR 

3«1 

C 

influence of tINS VORTICES •• LUPP OVER ChUROhISE RUhS 

«LL 

032 

FUN 

3R2 

C 


vLL 

033 

FUR 

303 


00 200 1Snp1*n8h 

VEU 

034 

FOR 

304 


naFT8nF8E6(IIn) 

vEl 

035 

FOR 

3ttS 


AFTUiO, 

vEl 

036 

FUH 

346 


AFTV«0« 

VEL 

037 

FOR 

347 


AFTNao* 

VEL 

038 

FOR 

34S 


IF(napt,eU,0) 60 TO 133 

VEL 

039 

FOR 

349 


IF(NAf7.EQ.1) 60 TO 111 

VEL 

000 

FOR 

390 

c 


vEL 

001 

FUR 

391 

c 

Influence of finite length «^ake pieces behind this ru* 

VU 

042 

FOR 

352 

c 


VEL 

043 

FOR 

353 


NAFTHsNAFT>I 

vEL 

044 

FOR 

354 


DO 110 lA8al,NAFTH 

vEL 

005 

FOR 

355 


XlaXNKRM(I|H,lA8) 

vEL 

046 

FOR 

398 


VlaYNKRH(IlN*lA8) 

vEL 

047 

FUR 

357 


ZItZ»KRN(I8N*IA5> 

VK 

048 

FUR 

359 


lASPalAI+l 

VU 

044 

FUR 

359 


X2aXHKRh[IlH,lA8P} 

vLu 

050 

FOR 

380 


yZaYHKRaUlN, IA8P) 

VLL 

051 

FOR 

381 


Z2aZ«KRa(18N*IASP) 

VEL 

452 

FUR 

382 


CAUL FLVF 

VEL 

053 

FOR 

383 


AFTUaAFTU^FU 

«EL 

054 

FOR 

380 


AFTV8*FTV»FV 

VtL 

055 

FOR 

365 


AFTh«aPTRaPn 

VLL 

05b 

FOR 

388 


Xlax«KLM(I|N*lA8) 

VLL 

057 

FOR 

387 


viBYaxL>*niNilA8) 

vEL 

450 

FOR 

381 


2laZaKUa(I8N,lA8) 

vEL 

059 

FUR 

389 


X2aXaKLa(IlN*U8PJ 

VtL 

080 

FOR 

370 


Y2aY*KLNnS-*ZASP) 

VLl 

081 

FUR 

J7I 


Z2bZnkLn(ISh*1aSP) 

vLL 

462 

FOR 

372 


CALL FLVF 

vEL 

083 

FOR 

373 


AFTUbaFTUhFU 

VbL 

084 

FOR 

374 


AFTVbAFTV«FV 

VEL 

085 

FOR 

375 


AFTnbaFThhF* 

vEl 

088 

FOR 

378 


130 CONTINUE 

VEL 

087 

FUR 

377 

c 


VEL 

06B 



c 

influence of 8EhI*1nFINITE TRAILING LEGS IN LAST aFT FLAP 

vLL 

089 



c 


VEL 

070 




131 continue 

VEL 

071 




LFaLASTpnSN) 

VEL 

072 




AXb»CPEL*2(LFJ 

vEL 

073 




AZaSDCUltZaF) 

vEl 

074 




n«V»rKRwn|«,NAFT) 

vEl 

075 




VlBVaxRMdlKfNAFT} 

vEL 

076 




ZIbZ»kR«(16n,naFT) 

vEl 

W77 

vEL 

001 


CALL SIVf 

VEL 

078 

YtL 

002 


AFTUbAFTU-FU 

VEl 

079 

vEL 

003 


AFTVaiFTV*FV 

VtL 

OBO 

y£L 

004 


AFTmbaFTRbFh 

VEL 

OSl 

VEL 

005 


XlaX»KLHll8«,NAFT) 

vLl 

082 

vel 

006 


YlaV..ML«>nSH*NAFn 

VLL 

08) 

vEl 

007 


ZlBZHKL-aSNrNAFn 

vEl 

084 



CALL SIvF 



VtL 

oes 

aftubaftu+fu 



VLL 

006 

AF7V«aFTV*FV 



VEL 

067 

AFTiiBAFT**k* 



VtL 

066 

144 CONTir^uF 



VbL 

069 




VtL 

09g 

LOOP nvER Vljsiicts U This ►UG CmURD-UE 

MC* 


VtL 

091 




VtL 

092 

nC"CbnChI ( lSk>) 



VtL 

095 

or uo ic»«iiNc*c 



VtL 

099 




VLL 

09b 

iNFLUENCt OF BUU«n LEG 



vbl 

096 




VtL 

097 

UISAStBlCM 



VtL 

096 

XUITI LCD 



VtL 

099 

VUYTLL(I) 



VtL 

loo 

ZUZlLL(l) 



VEL 

IDl 

X2IXTI H(1) 



VtL 

102 

V2byTlR(U 



VtL 

lOi 

l2»ZTL«fn 



VtL 

lOd 

CALL FLVF 



VEL 

lOS 

tyakU 



VLL 

106 

CVsFV 



VtL 

107 

ChiF a 



VtL 

106 

1F(NAF1,RE,0) GO TO MS 



VbL 

109 




vtl 

110 

••0 ru»» SIHJKO THl» «D«, CO'**UTI 1Bl InfLUtNCt OF 

INF UlTt 

VEL 

m 

TRAILI9I LEGS 19 WING PLANt 



VbL 

112 




VEL 

113 

AX«*1 ,0 



VEL 

lU 

AZiO.o 



VEL 

lis 

CALL SlVF 



VEL 

U6 

CUbCuaFU 



VEL 

U7 

CvbCVaFV 



VEL 

11 s 

C«*BCN«FH 



VbL 

U9 

X1BX2 



VLL 

120 

YMY2 



VEL 

121 

ZMZ2 



Vtl 

122 

CALL SIVF 



VEL 

US 

CO«CO*FU 



VlL 

U4 

CVbCV-FV 



VEL 

US 

ChbCbmF h 



VEL 

126 

CO TO MT 



VEL 

127 




VbL 

126 

IHEH ARb FLAPS dbHlNO TuU Ron, CQHPuTt 

iHFLUENCt 

OF 

VbL 

129 

finite trailing legs ]n bug PLANl 



VEL 

ISO 




VEL 

ISl 

US xibxTlR(I) 



VEL 

1)2 

YlBVTLRd) 



VEL 

1)3 

ZUZTLRd) 



VlL 

134 

X28XNKRb( I|W, 1 ) 



VEL 

13S 

Y2BViiKRN(Z8W| 1 ) 



VLL 

136 

Z2BZBVR«(l|Bf n 



VEL 

1)7 

CALL FLVF 



VEL 

136 

CubCUaFu 



VtL 

1)9 

CVsCVaFV 



VEL 

UO 

Cwbc*aFh 



VtL 

U1 

YIbXTlL(I) 



VEL 

U2 

YUYTLLUJ 



vEl 

US 

ZUZTLLd) 



VbL 

Ida 

X2BXBVLBdtF*d ) 



VEL 

MS 

Y2BYNKLv'dlH» 1 ) 



VEL 

U6 

22BZ«KiH(im, n 



VtL 

U7 

CALL FLVF 



VEL 

U6 

CUBCUaFu 



VFL 

M9 

CVBCV»FV 



VEL 

ISO 

CHBCWaFH 



VEL 

ib| 

Cy«CVjAAf TO 



VtL 

152 

CvbCVaAF Tv 



VU 

lb) 

CiNBCH*AFT> 



vtL 

159 

U7 VSBCIR(I) 



VEL 

15b 

OPbUP*CU*VS 



VEL 

IS6 

vPevPiCVAVI 



VEL 

157 

BPavP«Cn«V| 



VEL 

156 

ISO CORTlNOt 



vtL 

159 

200 !6ASEbIBASCanCnc 



vfL 

160 




Vtt 

161 


t I'-fLL'fcNC^ vCift?ICtS •• LOi.if' I'vMf H*P5 

C 

P (VfL *PS,('J,0 ) »f U'PM 

nr. ioft iFL«t i^FLA^s 
K^Cf (IPL) 

npu) 

COW«cPtLXZnPL) 

SUkZcSCElX^nH) 
kAFTsMkSfCF (IK ) 
lBA9k«MSTART(PL) 

C 

t LOUP /iVfeS tHDR0*>19t »0»«9 OF VO«Tlti$ UK THIS fL*P 

C 

DU 25o ISHBlfMSFr 
*F U<B0i 0 
AFiVao.O 
kFT*-af).6 

IF(NAFT,EO,0) GO TO 212 
IF(kAFT,tQ,l) CU TO 210 
C 

C INFLUf^CE OF FiMTt TRAILING LEGS In FIR 3 T FLAP AFT OF Thi® i)Nf 

C 

Xt«XHMRF(l8h»l«IFU 

YiaVi.FRF(ltH,l,IFL) 

2lBZhKRF(I|»>»l«IFt) 

F2>XPKRrUI»«2|IFU 

Y2BywKRFniK2iIFL) 

Z2«ZnkRF(I|w«2iIFL) 

CALL FUVF 
AFIUsaFYUaFU 
AFTVaAFrVAFV 
AF TN»iFTHiFN 
X1 «XRkLF(IS«i WXFL) 

VlaYMKLFUlMf trIFL) 
n»ii*KlFU»H,WlFL) 
x2BXMRLF(18i.,2«lPL) 

Y2BY*KLF(I8"«2»IfL) 

Z2*Z»>KLF(II»i,?,IFL) 

CALL FUVF 
AFtURAFTU»fU 
AFTVbaFIV-FV 
AFTHiAFTn-Fti 
C 

C CO^IRieUTJO'J OF SEHI»]NFl^ITE TRA1L1>**6 LEGS IM SCCUmO FLAP 

C 

210 MiX>iKRFni«iNAFT«IFL) 

ViaYHKRF(lSN,NAFT,IFl> 

ZiaZMFRF(XS<*»A(AFT,IFL) 

nF*IFL*^AFT 

AXi*CDtLXZ(NF ) 

AZ>S0CLXZ(NF) 

CALL SlVF 

Af TUaAFTU*FU 

AFTVaAFTV*FV 

AF1nbaFTi>«Fh 

XIbXhkLF (Uh,NAFT,IFL1 

Y1aYmkLF(I8N(NAFT,IFL) 

I1»ZH((LF(1S».,NAFT,1FL) 

CALL 81VF 
AFTUbAFTUaFU 
AFTVbaFTV»FV 
AFTmbaF TmaFH 

c 

C LOOP OVER VORTICES 1^ ThIS ChOrDmUE R(Jtt 

c 

212 CD»<IlNUl 

ll»lBASe*l|S»*«I)*KCFF*l 
DO 22C ICh»1,ncFF 

c 

C INPLUENCC OF BOUND LFG 

c 

JBIIAICR 

xiaxtllui 

YI»YTlL(IJ 

Z1«ZTlL(I) 

xZtiTLPd) 

v2»VTL»(n 


vLL IR 2 
VU IBS 
vbL 16« 
vbL 

VbL !*(• 
VtL 167 
Yf.L 16S 
VbL 16R 
VbL 17U 
VtL 171 
VtL 172 
VtL 174 
VtL 17« 
VtL irh 
VtL I7e 
VtL 177 
VtL ITS 
VtL 179 
VbL IPO 
VtL IS) 
VtL 102 
VtL IPS 
Vbi. led 
VtL Iflb 
VbL ISb 
VtL 1*7 
VtL US 
VtL 169 
VtL 190 
VbL 19\ 
vEL 192 
VtL 194 
VtL I9d 
vtL 193 

•kL 196 
VtL 197 
VbL 196 
vbL 199 
VtL 200 
VtL 201 

VbL 202 

vbl 204 
vbL 20U 
vbL 20b 
VtL 206 
vLL 207 
VtL 2i)8 
VbL 209 
VtL 210 
VtL 211 . 
VbL 212 
VtL 213 
vLl 2U 
VtL 2U 

VtL 216 
VtL 217 
VtL 216 
vbL 219 
VtL 220 
VlL 221 
VtL 222 
VtL 22) 
vEL 226 
vbL 22S 
vbL 226 
VtL 227 
VbL 226 
VbL 229 
VbL 2)0 
VtL 231 
VtL 232 
VtL 2)3 
vtb 2iU 
vbL 23S 
VbL 236 
vlL 237 
vbL 236 



I 


Z2«ZTi.!i( • i 



VtL 

239 

CALL nvr 



vEl 

240 

Cu«FU 



VLL 

2«1 

CvaF V 



vLL 

i’if 

CM*F w 



vEl 

2u) 

IF (NAF T,ne,0) 

GO Ts. 


VLL 

244 




VtL 

24b 

Nfj FLAPS MFHINP This 

(iNi, tOMPUTE INFLUEMCk uF StMi.iNFiNiTE 

VEL 

246 

TBATLINC LEGS 

IN THE 

PLANE OF THIS FLAP 

vLL 

247 




vEL 

248 

AXibCDxZ 



VEL 

249 

A7BSDX2 



vbL 

250 

CALL SIVF 



VtL 

251 

CUsCUbFu 



VEL 

252 

LvRCVtFV 



vEX 

253 

CNsCn^Fn 



VEL 

254 

X1RX2 



VEL 

255 

YIRY2 



vtl 

256 

Z1«Z2 



VEL 

257 

CALL SIVF 



VEL 

258 

cumcu^fu 



VEL 

259 

CVSCV-FV 



vEL 

260 

CxSCHbFH 



vEL 

261 

GO TO 21* 



VEL 

262 




VEL 

263 

TH[I(( tut FLiPI atHlND THI* 0 >‘ti COMPUTE INFLULmCE OF 

VEL 

264 

unite trailing legs 

IN THIS flap 

VEL 

265 




VEL 

266 

2t« XIiXTlR(I) 



VEL 

267 

V|«YTlR(I) 



vFL 

268 

n«ZTLR(l) 



VLL 

269 

X2>X»KRFnSb*] 

I»1FL) 


VEL 

270 

V2sYNKRF(ISH,1 

1,1FL) 


VEL 

271 

22a2MKRF'(ISH*1 

liIFL) 


VEL 

272 

CALL FLVF 



VEL 

273 

CUbCUyFU 



VEL 

274 

CVaCVbFV 



VEL 

275 

CnbcnaFN 



VEL 

276 

FUXTLUI.’ 



VLL 

277 

YlRYTLLdJ 



VEL 

278 

ZlRZTLL(t) 



VEL 

279 

X2»XbKLFU8N* 

iiiFi: 


VEL 

280 

V2tY*KLF(IS*, 

MFL) 


VEL 

261 

ZI«Z»KLF (ISn* 

1*IFL) 


VEL 

262 

CALL FLVF 



VEL 

263 

CURCUbFU 



VEL 

214 

CVaCVaFV 



vEL 

265 

CmrCh«Fh 



vEL 

266 

CUaCUbAFTU 



VEL 

267 

Cv«cv«aftv 



vEL 

286 

CNsCmaAFTH 



VLL 

269 

21* VSaCiRd} 



vEL 

290 

UPbUPaCUaVS 



VEL 

291 

vPbvp*CV«VS 



VEL 

292 

220 pPa»P«C"AV| 



VEL 

293 

250 CONTINUE 



VEL 

294 

300 continue 



VEL 

295 

return 



VLL 

296 

END 



VEL 

297 


SUtROuU'^L (f«P»](P,vP*7*'»UP»VP,<«P|hTlr>E ) JET »Ot 
C CDHPuTf VILOCITV induced BY * I^BIEI Cf tULlPTIC VORTEX KINGS JET 002 
C biTh VAfllABtl lENGTN AXIS lying aLUnG a PKE8C><1BE0 PATH JET 00) 
C JET OOA 
C ALL AIELD PUINT COOKOINATfS ARE INPUT In THE mInG SYSTEh ANL JET OOS 
C TRaNSFURheO to The Engine SVSTtH PUP CALCULATIONS jLT OOO 

C JET CEKTEKLINE coordinates are input in engine SySTEh jet 907 
C ALL OUTPUT IS ]N The hINQ STSTtH,QPT IUN al OUTPUT IN ENGINE SYSTEM JET 008 
C JET 000 


S jr'O CAiruL*Tpr. analytically 

NNLH s 1 J(V.) C*LC»'LATE0 nUnENICaLLV 


NCRLT s 0 CUMbECT EIEUD PUlM PU8ITION8 
•►nN AfSPCCT H.' >C»TEX KINGS 
NCPCT ■ 1 UJ NMT CUBBECT held POINT POSITIONS 


NTIhe iGT| 0 


nTIne ■ 09B 
N'TIhE ,lT, 0 


OPTIONAL OUTPUT ,,, 

nPPInt ■ •! 
NPhjNT ■ 0 
nPKInT s 1 


input anq PRINT JET PAHahiteRS and 
CALCULATE INPUCED velocities 
PRINT JET PANAHETEHS AsD CALCULATE 

induced velocities 
print jet PARAHEreRS only 
calculate induced VELUCimS PKDH 
PREVinulLY described JETS • nu OUTPUT 


HINIMUH output 
NONE 

JET velocities 


dimension title ( 6)*XCLR(2« 2f),YCLR(2f 29)(2CLP(2» 2S)*SCLN(J* ^S) 
DIMENSION THETA(2, 29 )iAJET( 2, 25)«wJET(2f 25 )i6AhVJC2),XQ(2), 

1 YD(2)iZO(2),D8(2)«PJeT(2)rXP(290)*YP(250}fZP(2SO)« 

2 XPR(250)«YPR(250)«ZPR{250)fU(2SO)»V(2SO)»p(250)« 

1 UP(2903|VP(290I."P(2S0) iDSPaCT(2»<S) 

COMMON /ERR/ JERR 
COMMON /JN/ AJNUM 

COMMON /XYZCL/ NJET,NCYLiXCLR«TCLRfZCLRfTHETA|AJlT»SJETi 
1 X0,Y0,ZG|CAMVJ 

700 PORmat (SPlO.S) 

701 format (1515) 

702 FORMAT (SAlo) 

70) FORMAT (10I>8A10) 

70ii format UHl) 

711 format (/2M (IWUN) JET PARAMETER|»7X7KGANMA/V,*X2HKt],BX2HYttf 

1 «XiHZQf7httHD(8) / 2)K*SFI0,t / 

2 10X)HXCL»TkSHVCLi7x)HZeL«7XSHSCL|5X5HTHETAf FxiHAfRXIHS 

3 4XSH0SFACTi7X1HP ) 

712 FORMAT (SXfioFlO,)) 

713 format (/JxaHNJtT,2x4iHNCYLf )l2HNPf 3xaHNNUM«2X5HNCNCT*2X6MNPHI>«T} 
7U format (1518) 

7I5 format ( «XlMN,7X2HXN,eK2HYfi,BX2HZK5K3HU/V|9X3HV/V»«X3Hb/Y} 

?U FORMAT af#3F19,J,JnPE|2,4in 

717 format (/2k,22hm1nC COORDINATE SYSTEM) 

718 format (/2X«25hVEL 0CITIES iNOUetO BY JElfU*2KH * JET COOHOINATE S 
ITSTEM/R^lHNf TXKHXP ,SX«HYP (9X«HZP i 3X3HU/V«X3mV/ V«X3Mh/V ) 

720 F0Rmat(/6X«h** JE1i12«5X22haNALTT1CAL J(N) CRROR»I8»10m PUInTS ••) 

721 format (///lOX, 34IHEXECUT10N TeKmjnaTED« EHROR In D| ) 

991 format (////lOXSOHt*** ERROR IN JET, b,6T|A ) 

PlP3|l<ll59|t 

RA0sie0,/Pl 

IF (NTIME) 193,10*997 

10 READ(5*f01) nhEAO*NJET,NCyL,nnum,NPRINT#nCRCT 
IF (EOF(Sn 999*998 
999 STOP 
991 CONTINUE 

IF (NPRlNT,6T,l) NPRlMll 
NASNPRINT 

NERRso 

NRITf 

DO 9 J«1*NhEAD 
RlAU(5*ru2) TITLE 
9 »RIT| (a*703) title 
AJNUMiNNUM 


INPUT INDIVIDUAL JET PARAMET2RS 
DU U jNl *NJiT 

READ (5*700) CAMvj(J), OS(J)*XU(J),Tb(J)»ZU(J} 

DO 11 Nr1*nCVL 

READ (5*7u0) XCLK(J*N)rVCLN(J*N)*ZCLK(J,N)«AJtT(J*N),SJtT(J,N), 



(n 


K 9 


I ThETi(J,^),0aF4CT(J»^) 

IF (0SFfcCTU»*-),lt.0,0) P8F*CMJ.^)«\ ,0 
11 COnTjmuE 
16 CO^TI><U8 

c 

997 CU^-TIfJoK 
NPRlNTa^^A 
C 

C Ut UR Tabu of jet CEnTERL2*<1 parameters 

c 

00 U JplfNjET 

00 II Ns2,mCTL 

• R ■ tXLLR(J»»*)*XCLR(J»N-n )**2 ♦ ( yCLR ( J » NJ -vCLR ( J » M- 1 J ) ‘*2 ♦ 

}) •CLP(J»‘^)aSORT OH) * 3ClR(J>N*i) 

IM continue 
C 

c preliminary output 

C 

MRITE (6»7tl) 

HHITI (6,71U) NJ£T,kCVL»^P,NNUM,NCRtT#NPRINT 
DO 19 Nai,NJET 

PjrT(N)B2,0*PI*SBHT((AJCT(N,t)«*2 * B JET ( N * 1) **2 ) /2 , 0 ) 

PRITI UfTn) N,GAMVJ(N),XQ(N),YQ(N)«{Q(N)»0S(N) 

DO 19 jalfNCYL 

IF (AJ|T(N«J)iLT,BJET(N,J)) NERRrNERR^I 
Pi2,A*Rt*80RT((AJFT(N,J)«*2 ♦ ■ JE T ( N, J ) **2 ) /2 , 0 ) 

19 hRlTE («fTl2) XCLR (N« J ) , YCLR(N, J } UCLR J ) 1 8 CLR (n« J ) , THE T A (N» J) f 

1 AJET(N^J),BJCT(N,J)fD8FACT(N»J),P 
IF (NERK.CT.O) CO TO 990 

IF (RTIHE,GC|999} return 
6U TO 19(1 
193 NRRINTRvl 
19(1 continue 
C 

DO 192 jRlfNP 
UPlJTiO.O 
VP(J)»O,0 
192 HP(J)aO«0 

DU ttO MilfNJET 

IF (08(H), LfiO, 0} 00 TO 90 

DO 19 J»liSR 

U(J)ro,0 

V(J)rO,0 

19 M(J)ao,0 
IREN0a8CLR(K,NCYL) 

C 

C TRAnIFORM field point COOROlNATEt TU ENGINE 8Y8TEH 

C 

190 DU 191 Jil,NP 
FPR(J)I •XP(J)aXQ(H) 

YPR(J)« YP(J)*YQ(M) 

191 ZPR(J)i •ZP(J)aZQ(H) 

C 

C correct field point LOCATrONf IF DESIRED 

C 

IF (NcRCT.LC.Q) call CORECl (NP« XPR, YPR| ZPR i 08 (H ) ,h , nCYL» 

1 XCLR»YeLR»ZCLR«SCLR(AJ£Ti 8 JET,THETA) 
|R9*DS(N)/|,0 

PaCTOR«DSFACT(m,i) 

JSRrI 

20 CONTINUE 
DSH>08(h)*PaCT0R 
6aHIbGAHVJ(m)*pjet(h)*0IR 
SRbIR^DSR 

C 

C LOCATE INDIVIDUAL VORTEX RINGS 

C 

21 IF (SR*8CLR(H,JSR) ) 2Si29r22 

22 JIR»J9R6l 

1F(jir.it,ncyl) go to 91 
CO TO 21 

29 X6ixclR(M» J tR) 

YCRYCLR(m,JSP) 

Z6bZCLR(H, JSR) 

A6*AJET(H,J8RJ 


JLT OS7 
Jtl OSS 
JET 069 
JtT 090 
JET 091 
JET 092 
JtT 09i 
JtT 09a 
JtT 095 
Jtl 096 
JET 097 
JET 096 
JtT 099 
JtT 100 
JET 101 
JtT 102 
JET 103 

JET loa 
JtT 105 
JtT 10b 
JET 107 
JET 106 
JET 109 
JtT no 
JET in 
JET 112 
JET 111 
JET IH 
JtT 115 
JET lU 
JET 117 
JET US 
JET 119 
JET 120 
JET 121 
JET 122 
JET 111 
JET 129 
JET 129 
JE1 IIS 
JET 127 
JtT 126 
JET 129 
JtT ISO 
JET 131 
JET 132 
JtT 13) 
JET 13« 
JET 139 
JET 136 
JET 137 
JET 136 
JET 139 
JET UO 
JET IRI 
JET 142 
JtT IRS 
JET UO 
JET U9 
JET 1R6 
JET l«7 
JET IRS 
JET 1R9 
JET ISO 
JET 151 
JET 152 
JET 193 
JET 15R 
JtT 155 
JET 156 
JtT 157 
JET 15S 
JET 159 
JtT 160 
JET 161 
JtT U2 
JtT 163 


6GU«Jf H*** JSR) 

T«U«T>*iTA(M, JSW)/«AC 
FACTUPipSFACT(H, J8») 

Gd TO 30 

c3 OtLTAB(SH-*CLMrM,jswn)/(SCL»(«»J9K)*SCLR(M»JSN*l)) 
xGaKCL‘'(M»JSH»l)*(XCLM(M,JSH)»xLL«(M»JSN,i))*DELTA 
vG«YCLR(“i JSR»U*(YCLP("* JSR)»YCLR(M| JSH-U )*DtLTA 
ZG«ZCLR(m»JSH*|)*(ZCLMIm»J5p)-ZCLN(m,J5N*1))*0CLTa 
AG«AJ t r (M, JSk.l )«( AJET (M, JSP1»AJET (M, JSR«1 } ) *DELT A 
BO*t*JET(M» JSR-l)*(BJET(M, JbH)»PJFT(M, JSP*l))»DtLTA 
ThGiThET A (M,JSH-l)*(THtTA(M,.JSH)*THFTAfM,jSH-l)) »0tL7A 

ThGiThQ/RaC 

FA£70H*0SFACT(M,JSR»1) 

30 continue 

SNTH.slNnMG) 

C5Tm»c03( Thg) 

PGAMs 2«0*PT*SURT ( ( AG**? * t}C**?)^?«0) 

31 GAMMAiGahi ,rP5AM 
DO 36 NBlfNP 

XlPH«(XPH(N)»XG)*C5TH * (ZPR(N)»ZU>*SMh 
EIARb (YPR(N)*Y6) 

ZETAR«*(XPR(N)*xO)*SNTh ♦ (ZPR(N)*Zg)*CSTm 
RP aS0RT{ETAH**2 * ZtTAR**2) 

3R IF ((aG»8G)/A6 ,CT, 1,0E«02) GO TU 35 
*GR0,0 
C 

C COMPUTE VELOCITY induced by a CIRCULAR RING 

C 

CALL VRING (AC,XIPR,RP,UC,VG) 

UO*UG«GAMha 

IF (RP,LE.1,OE«05) GO TO 36 
HC« VG*ZETaR/HP*Camha 
VGP VG*ETAP/RP*GAmMA 
60 TO 36 
C 

C COMPUTE VELOCITY INOUCtD pv AN ELLIPTICAL WING 

C 

39 CALL ERINC (Gamma, ACf BGUTAR, ZPT ar, XIPR« vG» mGi UG) 

IF (JEPR«BT,0) nERRbNERR*! 

56 UGAMtoG*C8TH ■kG*8NTH 
VGAHbvG 

hcambu6*$nTH f mG*cSTH 

C 

U(N}SU(N)*UGAH 
H(N)bb(N)«W6AM 
36 V(N}bv(N)YVCAm 

C 

t WOT!,, U(N),V(N),».in) are VELOCITIES INDUCED IN tN*lNt SYSTtM. 

C 

IF (8R.LT,SREN0) GO TO 20 

91 CONTINUE 

IF (NERR,6T,0) "RMC (6,720) m,n£RR 
NERW»0 

DO 52 NbIiNP 
UP(N)bUP(N)4>u(N) 

VP(N)bVP(N)*V(N) 

92 hP(n)bmP(N)«h(n) 

IF (NPRINT) tt0»R0,92 
C 

C optional OUTPUT 

C 

92 HRITf (6i7l6) M 
DO 90 NBl,NP 

50 HRITE (6»716) N,«PR(N),YPH{».),7Pfl(N),U(N),V(N),N(N} 

«0 CONTiKUt 
91 DO U\ ns1,NP 
UP(N)b*UP(N) 

6P(N),#WP(N) 

Ml CONTINUE 

IF (NPRINT, LT,0) RETUHN 
C 

C Output induced velocities in »Inc system 

c 

hRITE (6»717) 
mRITE (6»7i5) 
do 42 Mil,NP 

Hi mftnf (6,7te)N,XP(N),YP{N),ZP(N),UPfN),VP(N),».P(NJ 


JET 16(1 
JtT 165 
JET 166 
JKT 167 
JET Ibfj 
JtT 169 
JtT 170 
JtT ,171 
JET 17? 
Jtl 171 
JET 17u 
JtT 17S 
JET 176 
JtT 177 
JET 178 
JtT 179 
JET ISO 
JET ISi 
JET 162 
JtT U1 
JtT ISu 
JtT l«5 
JET lAb 
JET IS? 
JET 186 
JET 189 
JET 190 
JtT 191 
JtT 192 
JtT 191 
JET 19U 
JtT 199 
Jt1 196 
JtT 197 
JtT 196 
Jtl 199 
JtT 200 
JET 201 
JtT 20?. 
JtT 203 
JET 20R 
JET 209 
JET 206 
JET 207 
JET 206 
JET 209 
JET 210 
JtT 211 
JtT 212 
JtT 213 
JtT 21R- 
JtT 219 
JET 216 
JtT 217 
JIT 216 
JtT 2T9 
JtT 220 
JtT 2?l 
JET 2?2 
JtT 223 

JM 22a 

JtT 225 
JtT 2?6 
JET 227 
JtT 228 
Jtl 229 
JET 230 
JtT 231 
JtT 232 
JET 233 
Jtl 23U 
JET 239 
JtT 236 
JET 237 
JtT 236 
JET 239 
Jt1 260 



90 »RJTt t6»721) 
jTCif* 

990 fcRITt (*|991J Jtl euu 

STU>* 

tNO 


subroutine JITCL (NTIHEfTOU 

calculate Tht CHANCE |N JET CENTERLINE POSITION DUE TO THE 

Induced velccitv meld of the binc/elap and jet 

OIHENSIUN XCLR(^f2S)rYCLR(^»?S)fZCL(l(^*29)»rKETA(^,^t) , 

1 AJE T (2i 2S;,BJET (2, 29), X0(?)« YU (2 W2U(2 ),GamvJ (2), 

2 EPSZ(2S)«EP9Y(2S) 

CUHNON /XVZCL/ NJET,NCYL»*CLR»YCLR»2CLR»TMETA,AJCT,BJfcT, 

1 XO,YO,ZU,CAHVJ 

CDHN^^ /uvmcL/ U(2i29)*V(2,2S),R(2iM) 

CQHHON /aTaX/ StNALPfCUIALP 
COHHON /CLCALC/ MJtTCL»NJETCLiTHM*| 

NTH ■ 0 
RADb9T.2*STB 
DO ao jpunjit 

DO >0 KVliNCYL 

IF (K.BT.2) CU TO S9 

|FIZ(K)pTHETAUiK)/RAO 

fF|Y(Kl«0|0 
60 TO U 

19 CUNTINUE 

SAVE ■ TH£TA(J,K) 

HpK«I 

UT«C08ALF • U(J|K) 

>*T*|InalF • «(J»K) 

14 VTtV(J,K) 

DXrXClR(JiN)»XCLR(J,X»1) 

EP6ZCk)bATaN|(iiT,UT) 

IF (njitCL,6T,0 .and, CFIZ(X) .GT.O.O) EP1Z(K)90.0 
EPIY(K)i0,0 

IF (R.LT.NCYL ,AN0, NJETCLi6T,0) EF|T(x)bATAN2(vT>uT) 

IF tIPBZ(F),LT.THHAX) EFIZ(K)aTHMAX 

THETA(J,K)sEPIZ(R)*RAO 

IF (ABI(THETA(J,K)) ,LT, 90,0) 60 TO 91 

JJaJ 

KKIK 

CU TO 90 
51 CONTiwue 

ZCLR(J»X)*ZCLR(J»K»n*DX*TANUfcPSZ(R)*EPIZ(x*l))/2,0) 
YCLR(J,K)BYCLR(Jf<*l)«DXtTAN{ (kFSY(K)»ePBY(K*U)/t,0} 

DELTaiI ,0 

IF lARlCTH|TA(J,X)),6T,l,0t*O5) DtLTA9(THETACJ,K)«lAVE)/THETA{J,K) 
IF (ABB(DELTA) ,CT.TUL) nth ■ nTh ♦ I 

10 continue 

20 continue 

IF (NTH,EO,0) NTIHE ■ 100 

return 

50 NRITE (9*700) JJ*KK,THETA(JJ,Kk) 

TOO FORHAT (////// 29X* IttHERRUR IN JETCL ,2I9#F10,J) 

• TOF 

END 


s 



Suf^‘‘tU‘TlNfc rO"ffcCT (np»xpr,tph,ZPR, 08 m»*‘iNCtl*xCLR,»ClR,ZCLH,SClR» 

CHl 

001 


1 AJE T T , T«-ETft ) 


t«l 

002 




LHl 

003 


CORkkCT PlktO P»»I^T LOCATIPNI to AVUIU wORTIX NInC 31 KCUlaR IT ItS 

CRT 

009 




C*-! 

009 


Dl*«kNSltu. XPh{? 9 t-).TPP( 2 SO),?PRl 250 )»XCL 8 ( 2 , 25 )»yCLR( 2 * 

25 )* 

CRT 

00b 


1 ZCLR(?# 25 )*AJET( 2 ,?$),hJEr( 2 . 25 ), 9 CL«<( 2 * 25 J*THETA( 2 / 25 ) 

NFM(250) 

CRT 

007 




CRT 

008 


jsw«i 


C«T 

009 


SR*« 0 SR/ 2 ,P 


CRT 

010 


DU M jBtfNP 


CRT 

Oil 

1 1 

nFP( J) il 


CRT 

OU 


NCTiO 


CRT 

013 


RA0i57, 2957795 


CRT 

019 

20 

9 Rb 9 R*DSN 


CHT 

019 

21 

IF ( 9 R*BCLR(h,jsR) ) 23 * 25*22 


CRT 

016 

22 

J9RiJSR*i 


CRT 

017 


IF (J 8 « , 6 T, NC»U BETUHN 


CRT 

oie 


CU 1 U 21 


CRT 

019 

25 

XCbXCLRC**J 6 R) 


CRT 

020 


YCiYCL“(H*J9R) 


CRT 

021 


ZOZCLRC'tJaR) 


CRT 

022 


AC«AJET(h,jsr) 


CRT 

023 


b 6 iBJEU*'*J 9 R) 


CRT 

02u 


THCiTHETA(M,j9R)/ftAD 


CRT 

029 


SO TO 30 


CRT 

02b 

23 

DELTAa( 9 R* 8 CLR(H,j$R«i ) )/( 9 ClR(*<*J 9 R)« 9 CLR(^« J 9 R* 1 )) 


CRT 

027 


XC«xClR(^*JBR* 1 )*(XCLR(h* J 9 R)»XCLR(H(J 9 R» 1 ))aOELTa 


CRt 

028 


YU«yCL«(h*J 8 R *1 )*(YCLR("f J 9 R)»YCLRCN»J 9 H»m*OFLrA 


CRT 

029 


Zr.<ZCLR(H*J 9 R*U«(ZCLR(H«J 9 R)»ZCLR(M*JSR«m*DELTA 


C"T 

030 


BGBeJEr(H,J9R*l)«(BJET(H,J9R)»BjET(N*JSR«ll)toeLTA 


CRT 

031 


AG«AJET(**f JSR«l)»(AJET(M,jSR)«AjET{P,JaR>l))*OiLTA 


CRT 

032 


THG«THETACM,J 9 R«l)tfTHETA(H* J 8 R)«ThETA(H, J 9 k* 1 ))*OELTA 


CRT 

033 


THCsThG/RAO 


CRT. 

03 u 

30 

RCaB 6 *l ,10 


CRT 

039 


9NTHasiN{THC) 


CRT 

03 b 


CSTnicOB(ThC) 


CHI 

037 


00 3B NalfNP 


CRT 

038 


IF (NPP(N) ,EU, 0) GO TO 36 


CRT 

039 


XIPRmxPR(N)«XG)*C 9 TH « (ZPR(N)«Z 6 )*INTH 


CRT 

090 


ETaRi.(yPR(N)«VC ) 


CRT 

091 


ZETaRi (XPii(N)»xC)*9NTH « (ZPR(N)»Z 6 )*C 9 Th 


CRT 

092 


RPR*| 0 Rr(ETAR **2 ♦ ZETAH**2) 


CRT 

093 


IF (XIPR^DBR) 35 * 35 , 3 b 


CRT 

09 tt 

39 

NFP(N)a 9 


CRT 

OUS 


nct»nct*i 


CBf 

OUb 


60 TO 39 


CRT 

097 

3 b 

continui 


CRT 

098 


RTE9TaRPR-RG 


CRT 

0u9 


XTE 9 TaAB 9 (XlPR) 


CRT 

090 


IF (XTIBT , 6 T, 09 R/ 2 ,D) 60 TO 9 B 


CRT 

091 


NFP(N)aO 


CRT 

092 


NCTincT+J 


CRT 

053 


IF (RTE8T , 6 T, 08 R) 60 TO 38 


CRT 

099 


F 9 I 6 niI ,0 


CHI 

059 


IF (XIPR ,LT, 0,0> FSI6Nb*1,0 


CRT 

09 b 


XlPRPaFSIGN*(D 9 P 22 , 0 «XTE 8 T) 


CRT 

097 


XPRIN)«XPR(n)«xIPRP*CSTH 


CRT 

09 B 


ZPR(N)iZPR(N)«x 1 PRF* 8 NTh 


CRT 

099 

38 

CONTINUE 


CRT 

ObO 


IP (NCT ,LT, NP) GO TO 20 


CRT 

Obi 


return 


CRT 

062 


END 


CRT 

063 



1 


SUh^DuU^'k VflI^b (HbAxQf X IPP f hPN VftAM ) vHb OOl 

C v*<;, 0C2 

C 3U6k(U(TINfc 1C CLHPUTt VELUCITY iNPliCtt vOPTE* BI»-& V*<G 003 

C vHb OOP 

c RCAMH ■ HINO KA01US/REFE><-F^CE NADU'S vRG UOS 

C UPR a axial dUTpncE TV FIELD P('Ut/NEF bHE».Ct RADIUS vRG 006 

c RPR a NAUIAL DISTANCE TU FIELD PUlM/REFERERCE RADIUS VNU OOT 

C U6AR a AXIAL vELCCITT/GAhma vRG OOB 

C V6AP a NAOIAL VELOCnv/CAPMA V«u 009 

C VPC 010 

PI*3.U15926 VNC Oil 

DLNRaXlPR**2 * (RPR«RGAMR ) t VRU 012 

DENPaXlPR**Z * (SPS*RQA**R)»*i vRG 013 

AK2*«,0aRPR«RGAHR/DE'"P - 01^ 

CALL ELLIPS (AH2,ZK,Ze) VNC 015 

UCAM|(;K«(1,0«2,0*RDAMR*(RPR«N6AMH)/oENni*ZE) /lUR T ( DE Np)/ (2 • 0*P 1) VRC 016 

VGA'^ao.O v^C 017 

IF (RPR ,LE, l.OE-05) RETURN VRC OIB 

VCAMa»Xl PR/RPR/C 2,0*P1*S0RT ( DE MP) ) •(2K«( 1 ,t2,*RPR*R6AMR/D£NM)*ZE) VNC 019 

RETURN VRC 020 

END VHC 021 


SUBROUTINE ERINC (Camha, lAf fg, XZf Y2, ZZ* VPX« VPY, vPZ) 

C 

C COMtUTI The induced VEWOCITT COMPONENTI due to an EUIRTKAL 
C VORTEX RING 

c 

DUENSION A(9UAS(5)»RTR(u},RT1(P),ZJ(9} 

OUENSION F(4niT(al) 

c 

CHKHON /ERR/ JERR 
CQNHON /JN/ AJNUH 

c 

C 

Pl63,ltilS9|4 

JNUNbaJNUH 

f{»l,0 

JERRaO 

se 2 *ss*ge 

ZZi»ZZ»2Z 

SC2bIaa|A«SB*S6 

SCaSORTOCI) 

0UHaxz*(Z«YZ*YZ*SC2 

BZ2a0,9a(0UN«IQRT (OU*«*OUM^6,o«|C2aYZ*YZ)) 

IF (gZ2«lT,0,0) BZ2a0«0 

AZ2aBZ2*iC2 

AZaSgRT(A22) 

BZb80RT(BZ21 

VPXRO.O 

VPYlO.O 

VPZaO.O 

c 

C BEGIN LUOP TO CALCULATE CQNTRIBUTIUN UF FOUR UUAORANTt OF RING 

C 

00 30 JalfO 

GO TO (1U12,13|14} *J 

11 FXal.O 
FYbI.o 
GO TO II 

12 FXaal.o 
FYi 1,0 
6U TO 19 

13 FXa-1,0 
FYa-1,0 
GO TO 15 

14 FXa 1,0’ 

FYa-1,0 

15 continue 

IF (ARS(XZ) ,6T,SC ,anD« aBS ( YZ ) .LT , 1 ,0E«05) 60 TQ ISO 


ERG 001 
ERG 002 
ERG 003 
ERG ooa 
ERG 009 
erg OOP 
ERG 007 
ERG oOB 
ERG 009 
ERG 010 

ERG on 
ERG 012 
ERG 013 
ERG 014 
ERG Oil 
ERG OlP 
ERG 017 
ERG Oil 
ERG 019 
ERG 020 
ERG 021 
ERG 022 
ERG 023 
ERG 024 
ERG 029 
ERG DIP 
ERG 027 
ERG 02B 
ERG 029 
ERG 030 
ERG 031 
ERG 052 
ERG 053 
ERG 054 
ERG 055 
ERG 05P 
ERG 037 
ERG 056 
ERG 059 
ERG 040 
ENG 041 
ERG 042 
ERG 043 
ERG 044 
EHC 045 
ERG 04P 
ERG 047 


IF lbZ.r.T,0,0) cn u U 

IF UPSUZl.L'.SC ,ANO, iZ,Kt,p,0) GU TO IB 

CSETAZaO.u 

SNET*7al,0 

IF (J.CT.l) Gf' I- IT 

FXaO.P 

FYeO.O 

F Za«,o 

GO TO 17 

IB CSETAZaxZ/AZ*Fl 

SNETAZaSUl ACUSlCSETAZn 
GO TO IT 

IBO CStTAzaFx*iZ/AnS(xZ) 

$NETAZb0,0 
GO TO 1? 

16 CSE TAZaXZ/AZ*FX 
3NETAZaYZ/8Z*Fv 

17 CONTINUE 
C 

C SET uR coefficient amnay fmp QUaRTIC EGUATIOn 

C A(9)*(T*a4)*A(4)A(T»a3)FA(3)«(T**2)FA(2)*TFAU)a0,e 

C 

A(S)a| ,0 

0a9C2*CIETAZ*CSETAZ ♦ SB2 ♦ BZ2 fZZ? * 2,0*aZ*SA*cSE1AZ ♦ SC2 
A(«)6-4,0*IB*B2*SnETAZ/0 

A(3)b2,0*(8C2«C8ETAZ*CSITaZ ♦ S62 ♦ SZ2 » ZZ2-SC2)/U 
A(2)«A(4) 

A(l)a(3C2*CSETAZ»C9ETAZ * SB2«BZ2 fZZ2*8C2«2|0*Sa*aZ*C8CTaZ 1/G 
DO 19 >«ali9 

MHB6-H 

19 A8(MN)aA(M) 

IF ( JNUN,CT,0 ) CO TO 2D 
hP64 

CALL OUART(A|,RTRfRTn 
BlaRTR(l) 

B2aRTP(3) 

IF (AB8(BI) .LT, 1,0E*07) Bla0,0 
IF (AM(B2) ,LT, 1,0E*07) H2a0,0 
AlaABs(RTKl)) 

A2aABS(RTl(5)) 

IF (B2 .6T,0|0 ) 60 TO 54 

IF (B2 .LT.0,0 (AND, B1 ,CT, 0,0) GO TO 56 
IF (B2 .EG.0.0 ,AND. B1 ,LT, 0,0) GO TO 54 
56 continue 
DUM«B 2 
B2»B1 
etaOUM 

DUN«A2 

PlaAl 

AUOUH 
51 continue 

c 

C CALCULATE J-InTEGRALS 

c 

CALL J1NTE6 (Al,Bt»A2fB2iZJ) 

IF (JERR|E0,0) GU to 29 

26 continue 
C 

C CALCULATE J-1NTECRAL3 USING NUNE"ICAL INTEGRATION 

C 

TUlaO, 

NPa«i 
DXaNp.l 
DXal,o/DX 
DO So Ha2(Np 

50 T(M)*T(M-i )» ox 
DO 51 Ma|,NP 

F(M)BAtl)AA(2)*T(H}«A(i)aT(M)«T(H]«A(a)a(T(M)*a))«A(9)amM)aa6) 

51 F{N),j, 5 /(f 

CALL 8IM80N (NP|FfDX,ZJ(l)) 

DO 53 MMa2(9 
DO 55 HalfNP 
55 F(*»)aF(M)«T(N) 

53 CALL SINSUN (np,F,Dx,ZJ(mh)) 

29 continue 


ERG 0«B 
LRb 099 
bRC 050 
eng 051 
ERG 052 
ERG 053 
ERG 05a 
ERG 055 
bRG 0$6 
ERG 057 
ERG 056 
ENG G59 
ERG OPO 
ERG OPl 
ERG 092 
bRG 061 
ERG 064 
ERG OPS 
ERG OPP 
bRG 06? 
ERG 9P6 
ERG 099 
ERG 070 
bRG 071 
ERG 072 
ERG 073 
ENG 074 
bRG 075 
ERG 076 
ERG 077 
bRG 076 
bRG 079 
ERG 060 
ERG 061 
bRG 062 
ERG 061 
LNG 064 
bRG 065 
ERG OB6 
ERG 067 
ERG 066 
ENG 069 
ERG 090 
ERG 091 
ERG 092 
ERG 093 
ERG 09P 
ERG 095 
ENG 096 
ERG 097 
ERG 096 
ERG 099 
ERG 100 
ERG 101 
bRG 102 
ERG 103 
ENG 104 
bRG 105 
bRG 106 
ENG 107 
ERG 106 
bRG 109 
bRG ItO 
bRG til 
ERG 112 
ERG 113 
ERG 119 
ERG 115 
ERG 119 
bRG 117 
ERG IIB 
LNG 119 
bRG 120 
bRG 121 
ERG 122 
ERG 125 
ERG 129 


C 



c 

c 


t*LCuL*Tt VfLUCnv CL'**PUNtMS 


I )*ZJ(S) X 

VY«CAHHA*SA*Z 2 /Dlr-^*(ZJ( 2 )«/J( 4 ))*rv 

VZ*(ti*<h'A*o,$/Dl^*((SA*3P«tZ*SA«C&fcTAZ)*ZJ(S) 

) • ( 2 > 0 *SkftA 2 * 8 >«tT*Z)*ZJ(tt) * 2 , 0 «Sk« 8 b*ZJ(S) 

i • 2|0*|«*b2*SNeT«Z*ZJ(?) • (SA*«b«AZ*SB*C$LTAZ)*2Jn)) 

VZ*VZ*FZ 
VFXBVPX^VI 
vpytvp»*vt 
VPZavpZ 4 VZ 

it IF (fZ>6IilfOI AtTUHN 
SO conti>»ue 

RilURN 

thD 


SUHROUTINE JINTCC(«l»Bl(AZ«Bt»ZJ) 
C 

C lOtuTION OF J»INTE6RAL8 

c 

DlHEF^SlOh ZJ(5) 

COMMON /ERR/ JfRK 


JCRRPO 

DO I RalfS 

I 2J(*«)ae,0 

IF (*B8(8I«B2),lT,t,OE-07) S(i TO 80 

F>IaS,l<tl9«C8 

Fl2«Fl/aiQ 

H*OaUe,/B| 

TlaO.e 

TUaliO 

tZFae.O 

TZNaO.O 

FaO,0 

EaOiO 

CUa(Bl»B2)tt2 ♦ (At4A2)*a2 

Ce 2 a(Bta| 2)**2 ♦ (A|«A 2 )aa 2 

CsaMRT(CA2) 

CBaaapTtCBZ} 

AK 2 a<i, 0 ACAaCI/((CA 4 CB)«* 2 ) 

CKZai,o*AKt 

CKbMrT(CK2) 

6a2,0/<CA4CB) 

612«(a.0*Al*Al»(CA*CB)**2)/((CAACB)**2 • tt,0«Al*Al) 

61i*0RT(C12) 

nnbO 

TZPaftt-Al««l 

CO TO n 

10 6la»6l 

NHBl 

T2N8BfAl*61 

TUaTZN 

IF (TU.CT.TZP) TUaJZF 

II continue 

IF CTu,8T,t,0) TUal,0 

TPHlLNaTLYAiaClall 

TPHlL0aAl461*Bl»Cl«TL 

TPhIOnk T04A1*C1«B1 

TPHlUDaAl«Cl*Bl»Cl*TU 

Ph1LbaTaN2{TPHHN»TPmiLO) 

PHlUBATAN2tTPHlUN»TPMIU0) 

DLbPnil*RAO 

OUiPHlUtNAO 

IF COL. IT, 0,0 ,ANO, Cl, M, 0.0 ,ANO, NN,£0,0) 6U TO 10 
IF (nh,zq,o) nnb} 



128 



Pl.aP»-IL 

JIN 

093 

thU 

12a 



lPMH.,(.t,Pi2) t»'itt'4l,0 

JIN 

098 

EMC 

127 



IF (PhIL,LT,Pl) CC TP 22 

JIN 

099 

t«c 

12B 



PiaPl-PI 

JIN 

098 

e»c 

120 




JIN 

097 

■ERG 

ISO 


22 

Continue 

JIN 

091 

EMC 

ISI 



IF LPL.tt |PI?) CO Tn 21 

JIN 

099 

EMC 

132 



yuN.74N(Pi2) 

JIN 

ONO 

LHC 

ISS 



CALL Fill CF,PUN,CM) 

JIN 

081 

tHC 

ISu 



CALL ELI? (t.UU»',C"»l,0.C»2) 

JIN 

082 

EMC 

ISS 



CU"al#k-(Pi.PL) 

JIN 

083 

ERG 

isa 



CALL FLU (FPL,nu"»C8) 

JIN 

0»8 

erc 

IS7 



CALL ELI2 (fcPL,0UM,C«.l,0,CK2) 

JIN 

08V 

ENG 

ISB 



FLb2,0*EN»F • FPL 

JIN 

088 

ENG 

ISO 



tLB2,0*lN»E • fPL 

JIN 

087 

EMC 

100 



CO TO 28 

JIH 

080 




2S 

OUNbT*n(PL) 

JIN 

089 





CALI flu (FL,DUH,CN) 

JIN 

070 





CALL ELI2(EL»0UN,CK,1,0,Ck2) 

JIN 

071 




28 

EnbO.O 

JIN 

072 





PuaPHIU 

JIN 

on 





IF (PhIU.CT.PII) F.HbEN41,0 

JIN 

078 





IF (PnIU.LT.PU go to 26 

JIN 

0T9 





pubpu*pi 

JIN 

U78 





ENB2.0 

JIN 

077 

JIN 

001 


28 

continue 

JIN 

070 

JIN 

002 



IF CPU,LE,P12) CO TO 27 

JIN 

079 

JIN 

003 



OUNbTanCPU) 

JIN 

000 

JIN 

oe« 



CALL EL11CF,DUN,CK) 

JIN 

OM 

JIN 

oos 



CALL CLI2(I,Dun,CK,1.0,CF2) 

JIN 

002 

JIN 

008 



OUHaTAN(PI.PU) 

JIN 

O0S 

JI" 

007 



CALL ELXHFPU,DUm,CK1 

JIN 

008 

JIN 

001 



CALL ELI2(EPU,DUN,C8,1,0,CB2) 

JIN 

009 

JIH 

000 



FUB2,o*EHaF • FPU 

JIN 

008 

JIN 

010 



EUb2.o*EN*E • EPU 

JIN 

007 

JIN 

oil 



CO TO 20 

JIN 

000 

JIN 

012 


27 

DUHbTaN(PU) 

JIN 

009 

JIN 

013 



CALL ELX1CPU*0UN,CK) 

JIN 

090 

JIN 

018 



CALL CLl2(eUiOUN,CK, U0 |Ck21 

JIN 

091 

JIN 

ois 


20 

continue 

JIN 

09? 

JIN 

018 



|NUIb0IN(PhIL) 

JIN 

09i 

JIN 

017 



0NUUb31n(PmIU) 

JIH 

098 

JIN 

Oil 



cnulbcoi(phil) 

JIN 

099 

JIN 

019 



CNuuaCOf (P hIU) 

JIN 

098 

JIN 

020 



ONULb0ORT(1,O*Ak2Onul*0NUL) 

Jl" 

09? 

JIN 

021 



ONUUbSQRT(1,0«8K2«SnUU*SNUU) 

JIN 

. 09n 

JIN 

022 

C 



JIN 

099 

JIN 

021 

c 


compute LAHBDACO) thru L8H|Da(8) 

JIN 

100 

JIN 

02« 

c 



JIN 

101 

JIN 

021 


90 

DUHB0MUU«CNUU/ONUU • 0NUL*CNUL/ONUL 

JtN 

102 

JIN 

028 



AR8bAk2*AK2 

JIN 

103 

JIN 

027 



ZLANOi((l,04CR2)*CEU*EL)*2,OACK2«(FU*FL}«AK2*DUM)/(AR8aCii2) 

JIN 

108 

j;h 

021 



ZLAHitlONUUfl ,D/DHUU •DNUl*l ,0 /DnuL)/AM« 

JIN 

109 

JIN 

029 



ZLAN2a{.2,oa(eu-EL)t(l,04CF2)*CFU-FL)*AK2*OUH}/AK« 

JIN 

10a 

JIN 

OSO 



ZLANSa«CDNuU4CA2/0NUU •DNUL*CN|/DNuL 1/AK8 

JIN 

107 

JIN 

Oil 



ZLAN«a((l,0tCK2)*CEU«EL)*2,OACK2*(Fu«FL)«AR2*Ca2aDUN)/AK« 

JIN 

IflO 

JIN 

0S2 

c 



JIN 

109 

JIN 

OSS 

c 


CQNPiUE J(o) Thru J(8i 

JIN 

110 

JIN 

os« 

c 



JIN 

111 

JIN 

0S5 


SI 

TAUB(Al40laCI )/(Bl«Al aGI) 

JIN 

112 

JIN 

038 



DUMb(c«*3)/(ai*U,04C12))**2 

JIN 

US 

JIN 

0S7 



ClSBCtlaCl 

JIN 

lla 

JIN 

030 



TAU2bTAU*TAU 

JIN 

119 

JIN 

039 



7AUSbTAU2*TAU 

JIN 

118 

JIN 

080 


52 

ZJ0bOuna(ZLAH8 4 8,0aC1*ZLAh 1 « 8,0AC12aZLAH2 4 8,0*G13*ZIAH1 

JIN 

117 

JIN 

081 



1 * Gt3*ClAZLAHQl 

JIN 

110 

JIN 

082 



OUHBOuNa(Hi«Al*Ct) 

JIN 

119 

JIN 

083 


93 

ZJlBOUN*(ZLAM« 4 (S,0aGl4TAU)«ZLAH} 4 1 , Q *G 1 • (6 1 ATAU ) «ZL AH? 

JIN 

120 

JIN 

088 



1 A Cl2A(ClAi,tt«TAVi)*ZLAMl 4 1 AOAC\S*ZLaHO) 

JIN 

121 

JIN 

08S 



DUNbDuNa(H|«41*ci ) 

JIN 

122 

JIN 

088 



ZJ2b0un*(ZLAn 8 4 2,0*(G14TAU)*ZLAN} 4 (TA'j248,0»Cl*TAU4C12)aZLAN2 

Jl" 

12S 

JIH 

087 



1 A 2,0*ClATAU*(ClATAU)tZLAHl A b | 2*T AU2*Zl *"0) 

JIN 

128 

J]N 

080 



DUNBPU^ACBlaAlAG) 1 

JIN 

129 

JIN 

089 



ZJ3aOuN*(ZLAMti ♦ (S«0 *TaU4C1 )«ZLAM5 4 S,(i*Tau*CTAuac1 1«2LAN2 

JIN 

12b 

JIN 

090 



1 4 TAU2*{l,OACltTAU}*ZL*Hl A ClATAUiAZLANO) 

JIN 

127 

JIN 

091 



DUNaOuN*(0|*A 1«C1 ) 

JIN 

120 

JIN 

092 



ZJ8B0UMACZLAN8 4 8,0«TAU*ZLA«S 4 8 ,0*! AU2«ZLAm 2 4 « .O* T AUlaZL AHl 

JIN 

119 



rtooooooooooortooooooooooooon^'ooooooo 


* tau*Tau3*Zlamo) 

JIN 

UO 


JIN 

111 

TnuLbSNUL/CnUL 

JIN 

132 

TNUU»3MJU/rNUU 

JIN 

131 

Su62LLal|0/UTL«B2)*«2 ♦ A2*i21 

JIN 

139 

SUB2LU>1 .0/( ITU-B2)**2 * a2«aZ) 

JIN 

135 

8UB2RLa( (G a ( 1 . 0*G 1 * T NUL ) ) * *2 ) / ( ( t .0 aG12) « ( 1 , 0 aCk 2 • t nul * TNuL ) ) 

JIN 

136 

SUB2Rua((GA(l«O*GlArNUU))«*2)/((l,OAGl?)*n.0YCK2*TNUU*TNUU)) 

JIN 

117 

ZjmilJO ♦ ZJU) 

JIN 

138 

ZJ(2)bZJ1 4 2J(2) 

JIN 

139 

ZJ(3)sZJ2 4 ZJ(1) 

JIN 

190 

2J(9)bZJ 3 4 2J(u) 

JIN 

m 

ZJ(5)bZJ9 4 ZJ(5) 

JIN 

192 

TESTiaABS(SUB2LL-SUB2RL) 

JIN 

193 

TE8r2BABS(SUB2LU-3UB2RU) 

JIN 

199 

IF (TEST1,CT,1,0E-05. OR, TESTS, 6T,l,aE-05) GO TO 60 

JIN 

195 

IF INM.GT,?) RtTURH 

OIN 

196 

IF m,0-TU) ,LT, l.OE-06) RETU«N 

JIN 

197 

Gla-C] 

JIN 

198 

TLaTU 

JIN 

199 

TUbI , p 

JIN 

150 

nhb3 

JIN 

151 

CO TO 11 

JIN 

152 

JERRB99 

JIN 

153 

RETURN 

JIN 

159 

END 

JIN 

155 


SUBROUTINE ClU(RE9fX|CK) ill 001 

ELI 002 

PURR09C ELI 003 

COMPUTES the elliptic INTEGRAL OF FIRST KIND ELI 00« 

ELI QOS 

USAGE ELI 006 

CALL ELM (RESf XiCK) ELI 007 

ELI 008 

OCSCPIPTIO^J OF PAR*MiT£R8 ELI OOR 

RES • RESULT VALUE ELI 010 

X *UPPER INTEGRATION BOUND ( ARGUMENT UF ELLIPTIC ELI Oil 

INTEGRAL OF FIRST KIND ELI 012 

CK •complementary modulus ELI 013 

ELI Oltt 

REMARKS ELI OIS 

MODULUS K a SORT(i,*CK*CK), ELI 016 

ELI on 

method ELI 018 

DEFINITION ELI 019 

RES«INT£GRAL(l/SORT((tf r*T)*(U(CM*T)**2))f SUMMED ELI 020 

OVER T from q tu X)| ELI 021 

EQUIVALENT ARE THE DEFINITIONS ELI 021 

RESaINTEGRAL(l/(CO8(T)*80RT(n(CK*TAN(T)]**{)), SUMMED ELI 023 

OVER T FROM 0 TO aTanoo), ELI 02tt 

Rt$»lNTEGRALn/SQRTnPtK*SlN(T))**2)» SUMMED OVER ELI 02S 

T FHpM 0 TO ATANCX)), ELI 026 

evaluation LLl 027 

LANDCNpS TRANSFORMATION 1$ USED FOR CALCULATION, ELI 028 

REFERENCE ELI 029 

R, BUL1®SCH» numerical CALCULATION OF ELLIPTIC INTEGRALS anq ELI 030 

ELLIPTIC FUNCTIONS. CLl 03l 

HANDBOOK SERIES OF SPECIAL FUNCTIONS ELI 032 

NUMER18CHE maThEmaTIK VHL, Ti 1965. PP, 78*90, ELI OSi 


ELI Oiu 
ELI 035 
ELI 036 
ELI 037 
ELI 058 
ELI 039 
ELI 090 
ELI QUl 
ELI 092 


1 P(X) 2 , 1.2 

1 RESiO, 
return 

2 IF(CK)9,3*U 

3 RESiAlO«(abS(x)*SO«T(i , + x*xn 
CO TO 11 


t* ANGLt»*bSU ,/x) 

GLO*4r5 (C* ) 

ARI*l , 

PIHSO, 

5 S'JGtOiAM *GFn 
AARlBAi^l 
AHlsGK'^AErl 

anCLEb •8UGE(V4NGLF«a\6lE 
SQGEObSuRT (SQGFD> 

IF ( ANr,LM7,b.T 

C KEPLAfE 0 HY SmalI. value 

6 ANGLEaSOOtC*! ,E«8 
7‘ TtST«A4RI*l ,E-9 

IF (AB8( AAR I •GEO I •TEST ) 1 0. 1 0.6 

8 CEO«SOCFO*SOGEO 

PIMaPiM*PiM 

IF CANc,U)9.5i5 

9 PlMaPi«*3, i<ii5927 
GO TO 5 

10 IF(ANGLEni«l 2.12 
U PlMaPiM+j,iai 5927 

12 RtS»(ATAN(ARl/ANClE)+PIM)/4HI 

11 IF(X)lti,lS.l5 
U RES 9 -RES 

15 return 
END 


ELI 093 
EL] D9U 
ELI C9S 
LLl 096 
LLl 097 
ELI 0R8 
ELI 099 
ELI U50 
ELI 051 
ELI 052 
ELI 053 
LLl 059 
ELI 055 
ELI 05b 
ELI 057 
ELI 05b 
ELI 059 
ELI 060 
ELI 061 
ELI 062 
LLl 063 
ELI 069 
ELI 065 
ELI 066 
LLl 067 
ELI 068 


8 UBROUTINE CLl 2 (R|X,CK.A,e) 

PURPOSE 

COMPUTES THE GENERALIZED ELLIPTIC INTEGRAL OP 8ECUNO KIND 
usage 

CALL FLI2(Rn,CK,A.B) 

UESCRIPTION OF PaHamETLRS 
R • result value 

X -UPPER INTEGRATION BOUND ( ARCuME NT OF ELLIPTIC 
INTEGRAL OF second KIND) 

CK •complementary modulus 
A aCONSTANT TERM IN NUMERATOR 
R -QUADRATIC term In NUMERATOR 


RfHARKS 

MPOULUS K a SQRT(1,*CK*CK), 

SPECIAL CASES OF The GENERALIZED ELLIPTIC InTegRaL UF 
SECOND KIND ARE 

F(ATAN{X*»K) OBTAINED »1TH Aai,. Bb], 

E(ATAN(X).K) OBTAINED -ITH A B ] , . BaCK *CK , 

B(ATaN(K*,K) obtained mITH Ast,f UBO. 

D(ATaN(x*.k) obtained hITh AbO,. Bfll, 

METHOD 

DEpinITION 

RBlN7EC«AL((A + B*TBT)/(80«Tt n*T*T)»U»(CK«T)#*2n*(nT'»T)), 
Summed Over t from 0 TO X), 

FUUIvALENT is the DEFINITION 

RalNTECRAL((A«rB-A)*(SIN(T))**ie)/80RT{l-(K*slN(Tn*«2)i 
summed Over t from o to atan(x)), 

EVALUATION 

LAN'OFNS Tha*-SFQPmaTIOn is USED FOR CALCULATION, 
reference 

R, BULIRSCm, numerical CALCULATION OF ELLIPTIC INTEGRALS Anq 
ELLIPTIC FUNCTIONS 

handbook series nr special puncTIOns 

NUMERISChE maThE^’ATIh vol, 7, I9b5, PP, 78-90 


TEST ARCUMEnI 



0«1 

1 fito, out! 

BtTUBN 0 “S 

C TtJT HOK'LUS EI-« 0«6 

i Cip, CU7 

0i0,5 tL2 0«& 

IF(C«)7»5#7 tt2 y49 

5 Bfe 8 UBT(t«*x*V) 

Rs(A«fO*A0S(X)/R*t)*Al»GCAf3S(1i)*ri) tLi 081 

C 1K8T SIGN OF 40tU>«ENT tU2 0S2 

« 9 aR*C*M *07 

^ Ri«H tL2 088 

t return 05b 

c INITIALIZATION 057 

7 ANi{B«a)*C,8 058 

AA»A El.2 059 

RiP tL2 060 

AKC6ARSM«/)I) 061 

PlMiQ, 062 

tllaO OP^ 

APltl, tL2 064 

6fOaApS(C»^l 065 

C UANOfN TRanSPQRMAT IQN iU2 066 

8 RaAA«G( 06 R tli 06 T 

ieeOBARI*GEO 512 06S 

AAbAN E12 069 

AARUaRI ^>*2 070 

c ARtTHMenc HtAN til 071 

ARIR6C06AR1 EL2 072 

C SUN OF SINE VALUES EL2 07S 

AM«(R/AR1«AA)*0,5 5L2 074 

aanGiaSKAns) 5L2 075 

ANSa«BGCO/ANC^ANG EL2 076 

PINAaPIM tU2 077 

IF(ANCM0,9,ll EU2 078 

9 ANQi«i ,e»S*AANG 5U2 079 

10 PlHBPlM«l,ut5927 CU2 080 

ISlPlSlAl tl2 081 

\\ AANCaARSPbRIf AHC6AN& fcl2 082 

PaD/SQHTIAANGl 5L2 081 

lMlSl-6)n. 12.12 £*'2 084 

12 ISI»ISI«*4 tL2 085 

11 IF(ISl*2)15.14,14 LL2 066 

14 PaaP EL2 067 

15 CBCfP 512 068 

DaD«(AARI*6(01*0|S/ARl 5L2 089 

IF UBS(*ARt»6ED)«l.E*4*AARI)iTfl7il6 8L2 090 

16 SGEnaS0R7($GE0} EL2 091 

C ceON|TRlC **EAN 512 092 

GEOaSCEOABGEO 5L2 09) 

PIPpPjNpPlNA EL2 094 

ISIalBlPlSI 5L2 095 

COia 8 5L2 096 

c ACCURACY PAS SUFFICIENT EL2 097 

17 Ra(ATAN(ARI/ANC)aPlN)*AN/ARl tL2 096 

CaC«D*ANG/AANC EV2 099 

GOTO A 100 

END 512 101 


in 




C 

c 

c 

c 

c 

c 

c 


subroutine CLLIPS (AKSQ,1k,TE) 

•• TABLE LOUK-UP UF tLLlFTlC INTEGRALS 
DIHEnsIUN CXKMOO)iCNUOO).CEnOO) 

CRK • argument OF elliptic integrals 


ELL 001 
ELL 002 
bLL 00) 
ELL 004 
ELL 005 
ELL 006 
tLL 007 
ELL 008 
ELL 009 


r<*T. 


.01 . 

02, 

.M, 

.04, 

.05, 

.06, 

,07, 

*06, 

,09, 

• 10, 

.11* 

*12, 

.13* 

ILL 

010 

1 

. lu* 

.15. 

lb, 

,17, 

,10, 

.19, 

.?0» 

.21 , 

.22. 

.23, 

• 24, 

.25. 

.26, 

,27, 

ELL 

Oil 

2 

.28, 

,2^. 

30, 

,31# 

*3?, 

.33# 


,35. 

, 3b, 

. 37 , 

,38. 

#39. 

ttO, 

.91. 

ELL 

012 

3 

.‘<2, 

.43. 

44 . 

.45# 

.*6, 

,47, 

, 48 . 

,49. 

.50, 

,51 , 

.52# 

,53, 

54# 

55, 

ELL 

01 J 

u 

.5b, 

5T, 

SH, 

.59# 

6 0, 

61 , 

,62, 

63, 

,64, 

65, 

.66, 

.67, 

b8. 

69, 

ELI 

014 

5 

.70, 

71, 

72, 

.73. 

7u, 

75, 

,76, 

n, 

#78, 

79 , 

.80, 

,81. 

82, 

83, 

ell 

015 

6 

,0a. 

85, 

0b. 

.87, 

08, 

89, 

,90. 

91. 

.92# 

93. 

.94, 

. 95 , 

96, 

V7, 

ELL 

016 

7 

.98, 

,99/ 













ELL 

01 7 


c« « cuNMLtTE FLiiP»Jc Integrals df first kjnd 

data C"/1 ,570796, l,57ll74b« 1,578740,1 ,582780,1.586868,1 ,591003# 

1 1, 595188, 1 ,59'942), 1. 6fl 37 I 0,l,608049f 1,61 2441 # 1,6 16889, 

2 1,621393,1 ,b259S5, 1.630576#! .635257,1,640000*1,644806# 

3 1 ,6 49e78, 1,654617,1 .6S«o24, 1 ,964701,1 ,669050, 1,675071, 

4 1,680373, J ,685750,1 ,691208, 1 ,69e749, 1 , 702374, 1 , 70800 7, 

5 1,715689, 1,719785, 1 , 7257 76 , I , 73 1*65 , 1 , 73"05S , 1,744351# 

6 1 ,750754, 1 ,757269, 1,763808# 1 ,770647, 1,777519, 1,784519, 

7 I ,79U5o, ] ,7969 10, 1 . 806328 , 1 « 6 1 3884 , 1 , 82 15^3 , 1 ,»29U60, 

8 1,637491, 1,845694, 1,854075# 1.86264 1, 1, 07 140 0# 1,880361# 

9 1 ,889533.1,898925# 1,90854 7,) ,9 1 64 1 0 * 1 , 928526# 1 , 938908# 

A ] ,949568. ] ,96052! *t ,97) 763,1,983371, I , 995303 . 2 , 00 7598, 

B 2, 020279, 2, 0 33369, 2, 046894, 2, 060882, 2, 075363. 2 ,090 373# 

C 2, 1 05948, 2, 1221 32. 2. 138970, 2,156516, 2, 174827, 2, 193971# 

0 2,21 4022, 2,235068, 2,757205#2, 280549,2, 305232# 2.33U09# 

E 2. 359264, 2, 3890 16# 2, 420933, 2, 45533B# 2, 492635# 2, 533335, 

f 2.578092, 2,b27773,2,68355l . 2,747073,2,820752, 2, 90633T# 

G J,0I«112,3,l55«75,3.354l4i,i.b9S63r/ 

CE 6 COMPLETE ELLIPTIC INTEGRALS Of SECDnO aINQ 

data cE/ 1,570 796, 1 ,566062, 1 , 5629 1 3 , 1 ,558948 , 1 , 554969 , 1 ,55097 3, 

1 1,546963# 1,542936, 1,538893, 1,534633, 1,530758, 1.526665# 

2 1 ,522555, I ,518428,1,514284,1 ,510122, 1,505942, 1 ,501743* 

3 1,497526,1,493290.1,489035,1,484761,1,480466,1,476152# 

4 1 ,4718)8# 1 ,467462* 1 ,463086, 1 ,458688, 1 ,454269, ) ,449827, 

5 1,445363,1,440876# 1,43636b, 1 •«3) 832# 1 ,4272 74 , i ,42269 1 # 

6 1,418083, 1 ,413450,1 ,40879), 1,404105, 1,399392, 1,394652, 

7 1,389883# 1,365086.1 ,380259# 1 ,375402, 1 ,370515# 1 ,365596# 

8 I, 360645, 1,355661 #1,350644, 1,345592, 1,340505, I, 335382# 

9 l,S30223,l,325Q24,l,3197A8,|,3l45ll#l,309i92,i^io38)2# 

A 1,298428. 1 ,292979* 1,287484, 1 ,2R1942, 1 ,2 /635o , 1 , 27U70 7, 

8 1,26501 3# 1,259263# 1,253458, 1 ,297595, 1,24 167 1, 1,235684# 

C 1,229632 # 1,2235 12# 1.2 17321 # 1 ,2 11 056, 1,2097 1 4, 1 ,1 98290# 

D 1,191 781, I, 185 183, 1,1 78490, 1,171697, 1,1 64798, 1,1 57787# 

5 1,150656. 1,143396# 1,135998, 1,12845 1,1, 120742. I, 112856, 

f 1,1 04775, 1,096478 #1,067938, 1,0791 21, 1,069986, 1,060474# 

G 1,050502. 1,039947,1,026595,1,015994/ 

IF (AkSQ,LE,0,99) go TO 20 

21 PARAao.25An.O«AnSO) 

700 TEST s 1,005*07 
IF(Para.7EST)701#702.702 

701 PARAiTfST 

702 lLP»Ai 0G14,/9 aBa1 
TKbZLP*0,5*( 1 •♦PARA)*PARA 
TE«1 ,0* (ZLP*PARA)«PARA 

CO TO 30 

20 JAaioi).0*AK8Q 
jAai*jA 

IF (Ct<K(JA)»AAS01 22,23,22 
23 Tk«ck(JA) 

TEitltJA) 

GO TO 30 

22 C^}Na(AASU-CFFCJA))/(CKKCJA*l)«CAKlJAn 
tkbck r jA}*cuN*rcA ( JAti )« ca( ja> ) 

TEPCE ( JA)tCCN»(CE(JAf n«CEUA}) 

30 continue 
return 

END 



03 uUAWT (C • |R| xp 

c Sl'L'iTlliN DF Thf uijifitic LM)«TK'^ 

c 

OlMLNSTn^ C(^)«xR((0»kl((i)«*c(<J^iF<J(3)»bQC})*xt(i) 
b»UlV4LFNCe (AOfBU) 

*5■C(^WCC1) 

*2iCf3)/CM) 

*tKC(«)/C(t) 

*tl»C(‘5)/C{t' 

AtA3/a, 

ACmal, 

«C (2)a«A2 
AC(3)aAl*Al«U,*A0 

*C(>^)a*0*(U,«A2»A3AA3)«Al*Ai 

C*LL CURIC(ACiRI.RTi) 

1F{AT} ) ^0, 10«20 
to IF («TM)-Nt(2)) 1W12»12 
U RrnUHT(2) 

12 IMRttn-Mton 13.20»20 
U PT(1).«T()) 

20 BaRTti >/?, 

ir (du>*iCT,i,oe»os) cr* ru 
22 Did. 

CAa80RT(AAAt2,AB«A2) 

CD TO 29 

2U Da5URT(B*B»A0) 

CAB*(At/2,«A*8)/0 
29 ibCnal, 

AQ(2)bA»C* 

A0(S)aR«D 

call 0UAD(A0»xen]«xH(2)»Xl(i)) 

BU(2)bA«CA 

BU(3)aB«D 

CALL QUA0(RU,XB(3),XR(a],Xl(})) 

xl(2)a««t(n 
XI (U)B-I(t (}) 
return 

END 


i,hT 001 
U«T 002 
1.x T 00 3 

uNl OOU 
UNT OOS 
bNT 006 
UNT 007 
QRT 006 
wHT 009 
l(HT OIC 

ijt»T on 
uN1 012 
UHT 013 
OR] U19 
ORT 015 
(.Rl 016 
&NT 017 
URT 016 
URT 019 
QWT 020 

CRT 021 
uRT 022 
URT 023 
CHI 029 
OHT 025 
UHT 026 
URT 027 
UHT 02B 
OHT 029 
URT 030 
QRt 031 
6RT 032 
URT 033 
OHT 039 

ORT 039 
UHT 036 
UHT 037 
URT 03B 
UHT 039 
UHT 040 


•UOHUUTlNb CUBIC (A,XH»XI] 

C SOLUTION Of CUBIC CQUATtQN 

C A(lJ*X**S*A(2)AX«a24A(31*X«A(il)aO« 

C 

DIhbssiON A(9),XR(3)»AO(3) 

1RAThi2 

EXB1./3, 

If(A(a)) 1006rl00(irl006 
lOOtt XRU)aO» 

CO TO 1034 
1006 A2ba( 1 )«A(1 ) 

QB(27,*A2«A(u}«9,«An}*A(2)«A(3)«2.«A(2)**3)/(54.«A2*A(n) 
If (U) lOlOr 1006, 1 019 
1006 2 b0, 

CO TO 1032 
1010 Ob»u 

IRATHai 

lOltt RB(3,*A(l)AA(3)«Al2)*A121)/(9«tA2) 

ARCbR«R*P»OaQ 
If ;aRcM016, 1016, 1020 

1016 ZB»2,alQHT (*P)*COS (ATAN (SBRT (•ARC) /U)/3, ) 

CO TO 1026 
1016 Za*2,*0**bX 
cn TU 1026 
1020 SaRCbSORT (ARC) 

If (PM022, 1029, 1026 
1022 Za«(Q«SAH6}**LX>(Q-SAec}*AbX 
GO TO 1026 


CBC 001 
CbC 002 
CBC 003 
CBC 009 
CBC 005 
CBC 006 
CBC 007 
CBC 006 
CBC 009 
CBC 010 
CBC Oil 
CbC 012 
CbC 013 
CBC 014 
CBC 015 
CBC 016 
CBC 017 
CBC 016 
CBC 019 
CBC 020 
CBC 021 
CBC 022 
CBC 023 
CbC 024 
CbC 025 
CBC 026 
CBC 027 
CBC 026 



102a 2a«(2,au)a*iX 
fj'' If' T02H 

to 2 6 2s(3Ai>(;.i^)*«fx.(5AM(j,(:Wft^i 
1026 T(} { 1C30,1032T , IPATm 

1030 7=-Z 

10 32 xRU)a(3,*A(U*Z>A(^n/(3,*A(m 
103u AU( I }bA( I ) 

AU(2)tA(2)«XR(1 }• A ( p 
AU(3 )iA(3)«bRU I*aU(2) 

CALL UUaD (Ab*xHt2),v«>(5),Kn 
HI TI'Ra. 

INO 


CBC 029 I 

CbC 030 I 

CbC 031 ! 

CbC 032 ; 

CbC 033 I 

CbC 03u j 

CbC 0 15 

CBC 036 ■ 

CBC ni7 ! 

CBC 03 B 
me 039 
CbC 040 


SUBHOuTINE QuAO (A,xR1,aR2,XI) 

C SULUTTON Uf ine OUAORATJC tOUATlON 

C An)*XAf«A(2)*X*A(3}aO» 

c 

DlMbNglfjN A(}) 

Xla-Ar2)/(2,*An)) 

DI8Cixi*X|.Af3}/An) 

If <018010,20,20 
10 X2B8BRT (•DI8C) 

XRlBkl 
XRIakl 
XIBX2 
GU TO 36 

20 X2B8QRT (DISC) 

XRtBX14-|t2 

XR2axi«E2 

xiso, 

30 return 
END 


uAD 061 
r,Ai) 002 
UAU 003 
UAL) 009 
UAp 005 
UAU 006 
UAD 007 
UAD 008 
UAD 009 
UAD 010 
UAD Oil 
UAD 012 
UAU 013 
mAO 019 
UAD 015 
UAD 016 
UAD 017 
UAD 016 
UAD 019 


subroutine SISSON (N,f,0X,8UM) l>lb 001 

C Sin 002 

dimension f ( 1 .) Slh 003 

C SIH 009 

8UMbF( 1 j4f(N) SlH 005 

DO 1 ls 2 ,N ,2 Sir oOb 

1 8UHaSUb«ft,0*fn) Sir n07 

mbN» 2 SiM U06 

00 2 !b 3,M,2 Sl^ 009 

2 8UMaSUMA2,0*f (1) Sin OlO 

SunBDx*8un/3«n SZr Oil 

return sin 012 

END SIN 013 
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Wing-Flaps 

Jets 

Iterations 

Vortex 

Lattice 

Elements 

No. 

Shape 

Length 

As 

26 

1 

Circular 

18 

0.1 

2 

104 

Off 


— 

— 

1 

120 

Off 


— 

— 

1 

135 

Off 


— 

— 

1 

156 

Off 

1 


— 

— 

1 

126 

2 

Circular 

20 

0.1 

3 

126 

2 

Circular 

20 

0.1 

4 

126 

2 

Circular 

20 

0,1 

5 

135 

2 

Circular 

20 

0.1 

1 

135 

2 

Circular 

20 

0.1 

2 

135 

2 

Circular 

20 

0.1 

3 

135 

2 

Circular 

20 

0.1 

4 

135 

2 

Elliptical 

20 

0.1 

1 

135 

2 

Elliptical 

20 

HI 

• 

O 

2 

149 

2 

Circular 

20 

0.1 

1 


Angles 

of 

Attack 


2 

1 

2 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 


Execution Time (sec.) 


CDC-6600 

FTN,0PT=2 

8 

40 

48 

90 

120 

170 

215 

270 

85 

140 

200 

260 

330 

590 

100 


CDC-7600 

FTN,0PT=2 


35 

45 


Table I.- Typical execution times for EBF prediction program 







































Continued, 



















































cn 


P«CJ(iR6M MAIN- I IWPUT lOLlTPiJT, I APtSsJMPUT , T APE(jsOUTPIjT , T APt <I) 
CU^NMUN FVN(2722Ei) 

CAUL wNGPUP 

STOP 

EMD 


Subroutine i^ngflp 


hNC 001 


common FyNIJ) 


wNG 0«3 


t»5 continue 
C 
C 


mng ifcy 
hNG 161 
wNG 175 


GO TO 1000 

return 

ENp 


wNG 3<>2 
MNQA362 
l»NG 563 


Figure 2.- Alternate card decks defining program 
MAIN and Subroutine WNGFLP. 



wing 

Flap 1 
Flap 2 

Flap 3 



ON 


Figure 3.- Vortex-lattice arrangement for EBF 
configuration of references 3 and 4. 







Bound vorticity 



I I I 1 I I I I 1 

3 4 5 6 7 8 9 10 11 12 


X 


j 


Figure 5.- Jet centerline specification in region 
near lifting surfaces. 



ITEM 1 


ITEM 2 


ITEM 3 


ITEM 4 


ITEM 5 


ITEM 6 


FORMAT (15), 1 card 



FORMAT (6F10.0), 1 card 


LL_ 

SREF 

REFL 

XM 

31 

ZM 

♦1 

TOL 

DTK 

tz 

F 

F 

F 


F 


F 

F 


FORMAT (15), 1 card 


1 e 



FORMAT (3F10.0), 1 card 

1 U Zl 3 1 


CRW 

SSPAN 

PHID 

P 




FORMAT (515), 1 card 


1 

6 

11 

IS 21 26 

1 NOW 

1 MSW 

)NTCW 

1 NUNI INPRESWl 

LI. 

1 -I. . 

I- 

-.n 1 


(a) Page 1. 


Figure 6.- Input forms for EBF prediction program. 







ITEM? FORMAT (3P10.0,I5), MSW + 1 cards 


ITEM 8 


^ Yd) 

^^PSIWLE(I) 

PSIWTE(I) 

31/ 

F 

F 

F 

I. 






































NFSEG(I) 

36 


Omit item 8 if NTCW - 0 MSW sets of cards If NTCW = 1 and NUNI - 1 

FORMAT (8F10.0), NOW values, eight per card. One set of cards if NTCW * 1 and NUNI " 1 


^ ALPHAL(l) 

ALPHAL(2) 

. 

P ^ALPHAL(NCW) 

41 

SI 

6 1 

71 

F 


































ITEM 9 


NWREG - 1 times 
FORMAT (215) 


P IIN flOUT 

|ii 


L -I 1 I 

FORMAT (315 

, 2F10.0) 


p NCW fNTCW 1 

f-^NUNI|^® CIN 

1 TESWP 1 

1 i l l 1 

ij 

1 F 1 

Omit item 11 if NTCW « 0 



36 


lOUT - IIN sets of cards if NTCW » 1 and NUNI = 0 
ITEM 11 FORMAT (BFlO.O), NCW values, eight per card. One set of cards if NTCW “ 1 and NUNI - 1. 


^ ALPHAL(l) 

ALPHAL(2) 

21 

® ALPHAL(NWC) 

4 1 

5 1 

6 1 

7 1 

f 
























(b) Page 2 . 


Figure 6.- Continued. 
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ITEM 12 FORMAT (15), 1 card 


NFREG " 
I 


ITEM 13 FORMAT (315), 1 card 


11 16 
IlN I lOUT J 


Omit items 13,14,15, auid 16 if NFREG*0. 

If NFREG>0, item 13,14,15, and 16 are repeated in sequence NFREG times. 


ITEM 14 FORMAT (415), 1 card 


NCF NTCF NUNI pPRESF 
I I I I 


NOTE: More than one set of items 14,15, auid 16 may be 

required by NINREG on item 13. 


ITEM 15 FORMAT (5F10.0), 1 card 

1 11 21 ai *1 51 

1 GAP IN I CRFIN 1 GAPOUT 1 CRFOUT 1 DELXZ J 

1 "• F • I • F r F -- 'I — f" t~" i 

Omit item 16 if NTCF * 0 (TOUT - IIN sets of cards if NTCF ? 1 and NUNI = 0 

ITEM 16 FORMAT (8F10.0), NCF values, eight to a card, jone set of cards if NTCF * 1 and NUNI » 1 


ALPHAL(l) f ^ ALPHAL(2) 


lALPHAL(NCF) 




Figure 6.- Continued. 





Omit items 19,20,21 and 22 if KJET = 0 


ITEM 19 FORMAT (615), 1 card 


1 e 11 la 21 26 31 


NHEAD 

NJET 

NCYL 

NNUM 

NPRINI 

NCRCT 1 

I 

I 

I 

I 

I 

I 1 


ITEM 20 FORMAT (8A10) , NHEAD cards 
TITLE 

.. . A 

Items 21 and 22 are repeated in sequence NJET times. 
ITEM 21 FORMAT (5F10.5), 1 card 


^ GAMVJ(J) 

ill 

1 DS ( J) 

|21 , V 

1 XQ(J) 

YQ(J) 

210 (J) 1 

F 

J F 

1 F 

J _L_ 

1 ^ 1 


ITEM 22 FORMAT (7F10.5), NCYL cards 


1 11 21 31 41 51 61 71 


XCLR(J.N) 

YCLR(J.N) 

ZCLR(J.N) 

AJET(J,N) 

BJET(J.N) 

THETA (J,N) 

DSFACT(J,N)^ 

F 

F 

F 

F 

F 

F 

F 












































Omit item 23 if NFPTS - 0 


ITEM 23 FORMAT (3P10.0), NFPTS cards 

1 11 21 3l 


XFP 

YFP 

ZFP 

F 

F 

F 

















(d) Page 4. 


Figure 6.- Concluded. 





«-ENGINt EBI MODEL ELAP ANCLIt • 15/15/55 0AP»,015C CtJ)««.0 

PEF, PlPPy AND SREENE MAIA TN D«Ta*3 

AOYASI, FALAPSKI# AMO KOENIG NASA TM X>6219T FIG, 9 
SAMPLE case 1 ALPHA ■ 18,5 ELLIPTIC JET , 2 ITERATIONS SPECIFIED 

JET centerline THETA LIMITED TO •18,5 DEBREES 


200,34 

1 

P.l’ 


5,56 

• 6,52 

1.38 

0,05 


19.08 


0, 



4 

IS 

0 

0 

1 



0, 


2T.71 


18,29 

1 


2. 


27,71 


18,29 

3 


3,62 


27.71 


18,29 

3 


9.3 


27.71 


IS, 29 

3 


5,4 


27.71 


18.29 

3 


6, OS 


27.71 


18,29 

3 


6,77 


27,71 


18.29 

3 


7,45 


27,71 


18,29 

3 


8,55 


27,71 


18,29 

3 


9,23 


27.71 


18,29 

3 


10,5 


27.71 


18.29 

3 


12. 


27,71 


18,29 

3 


13,7 


27.71 


18.29 

3 


15,5 


27,71 


18,29 

3 


17.1 


27,71 


18,29 

3 


19,08 

1 

3 


27.71 


18,29 

3 


1 

16 





1 

0 

0 

1 




0,11 


1.125 


0,045 

0.41 

15.0 

2 

(t 

0 

1 




0.11 


1.5 


0,045 

0.6 

35.0 

2 

0 

0 

1 




0.11 

1 

18,5 


1.688 


0,045 

.675 

55,0 


0 

12 

2 

0 8 

0 


1 2 IJ 0 -1 0 

JET MODEL JT15D«1 C(JJP«,0 Cmal,8 ELLIPTIC CROSS SECTION NEAR FLAPS 


10,10 

.18 

.85 

• 4,85 

1.38 



0. 

0. 

•0,000 

.»«5 

.845 

0,0 

1. 

3, 

0. 

•0,000 

.«45 

,845 

0,0 

1. 

6,50 

0. 

0,10 

1.23 

1.23 

3,28 

1. 

7,50 

0. 

0,133 

1.48 

1.23 

0,41 

1. 

8,50 

0, 

0,08 

1,74 

1.23 

•6,61 

1. 

9,0 

0. 

•,01 

1.87 

1.24 

•12,9 

1. 

9,50 

0, 

• , 16 

1.99 

1.25 

•21,1 

1. 

10,0 

0. 

• ,40 

2.12 

1.27 

•30,0 

1. 

11.0 

0. 

• 1,08 

2.38 

1.29 

•38,5 

1. 

12,0 

0. 

• 1,88 

2.63 

1.31 

•38,5 

2. 

13,0 

0, 

•2.4 

2.41 

1.52 

•32,0 

2, 

15. 

0. 

• 3,52 

1.96 

1.96 

•18,8 

3, 

20, 

0, 

• 4,83 

2.08 

2.08 

•10,8 

1. 

10,10 

.1 

•1.2 

• 8, 

1.38 



0, 

0. 

0,0 

,845 

,845 

0,0 

1. 

3. 

0. 

0,0 

.845 

,845 

0,0 

1. 

6,50 

0. 

0,11 

1.24 

1,24 

2.2 

1. 

7.50 

0, 

0,10 

1.48 

1.24 

•3,0 

1. 

8,50 

0. 

• 0,01 

1.78 

1.24 

•13,7 

1. 

9,0 

0, 

• 0,17 

1.87 

1,25 

•22.8 

1. 

9.5 

0. 

• 0,45 

1.99 

1.26 

• 35,5 

1. 

10,0 

0. 

• 0,8 

2.11 

1.27 

•36,0 

1. 

11.25 

0. 

• 1,8 

2.88 

1.29 

• 38,5 

1. 

12,0 

0, 

•2.4 

2.63 

1.31 

• 36,3 

2. 

13. 

0, 

•2.8 

2.41 

1.52 

•29,0 

2. 

15, 

0. 

• 3,76 

1.96 

1.96 

•13,4 

3. 

20, 

0. 

• 4,5 

2.08 

1.08 

•3,6 

1. 

•12. 

• 4. 85 

0. 





•12. 

• 8,85 

1. 





•12. 

•8,85 

2. 





•12. 

•8,85 

3. 





-12. 

•8,85 

3,5 





•12. 

•8,85 

4, 





•12. 


5. 





•12. 

•8|S5 

6 , 





•9.5 

•8,85 

0, 





•9.5 

• 8,85 

0.5 





-9.5 

• 4,85 

1. 





•9,5 

•4.85 

1.5 






(a) Sample case 1. 


Figure 7.- Sample input decks for 
EBF prediction program. 



1 

SAHPUE EBF CONFICURATION HITH 1 CIRCULAR JET MAKEi 2 WINQ RB6IQN3i 

2 3LOTTEO FLAPS, AND 1 AILERON TVPE FLAP 


engine 

CENTERLINE 

FREE TO MOVE IN 

V AND Z directions . 

2 iterations specified 

soo.o 


10,0 


• 5.0 

0.0 

0.05 

• 30 , 


2 









10,0 


20.0 


0,0 





2 

7 

0 

0 

1 





0,0 


26.1 


1 1 • ^ 

0 




2,5 


36.2 


11.5 

0 




5.0 


26.2 


11.5 

0 




R.O 


26,2 


11.3 

2 




13,0 


36,2 


11.3 

3 




15.5 


26,2 


11.3 

2 




IS.O 


26,2 


11.3 

0 




20,0 


26,2 


11.3 

1 




1 

3 








1 

0 

0 

2 . 

0 It 

.3 




2 









2 

3 

b 







1 

0 

0 

0 






0.1 


1.5 


0.1 

1.5 

20.0 



2 

0 

0 

1 






0.1 


2.0 


0.1 

2.0 

60.0 



1 

7 

e 







1 

0 

0 

1 






0.0 

1 

10.0 


1.2 


0.0 

1.0 

10.0 




0 

4 

2 0 

1 

1 



1 

1 

IS 

0 

• 1 





CIRCULAR 

JET kakE 

model for 

sample 

EBP CONFIGURATION . 

Vj / V «5 

R.O 


0.1 


• 2,0 

• 11,0 

2,0 



0.0 


0.0 


0,0 

1.0 

1,0 

0,0 

1.0 

1.0 


0,0 


0,0 

1.0 

i.o 

0,0 

1.0 

5.0 


0.0 


0.0 

1.2 

1.2 

0,0 

1.0 

T.O 


0.0 


0,0 

1.6 

1.6 

0.0 

1.0 

R.O 


0,0 


0.0 

1.6 

1,6 

0,0 

1.0 

10,0 


0,0 


0,0 

l.T 

l.T 

0,0 

1.0 

11.0 


0.0 


0,0 

1.8 

1,8 

0,0 

1.0 

11.5 


0,0 


0.0 

1.85 

1,85 

0,0 

1.0 

12,0 


0,0 


0.0 

1.6 

1,6 

0,0 

1.0 

12.5 


0.0 


0.0 

1.65 

1.65 

0,0 

1.0 

11.0 


0.0 


0.0 

3,0 

2,0 

0,0 

1.0 

10.5 


0,0 


0,0 

2.15 

2,15 

0,0 

1.0 

15.0 


0.0 


0.0 

2.2 

2.2 

0,0 

2,0 

16.0 


0,0 


0,0 

2.3 


0,0 

2.0 

18.0 


0.0 


0.0 

2.5 

2 ;s 

0,0 

2.0 

16.0 


• 11,0 


0,0 





16.0 


• 11,0 


2,0 





16.0 


• 11,0 


6,0 





16.0 


• 11,0 


6,0 






(b) Sample case 2. 


Figure 7.- Concluded. 
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(b) Jet centerline detail. 


Figure 8.- Concluded. 
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EBF *ER0nV»J*>1It RRtOICTION PRCGPAH 


SAWPLt EBF CONFIGURATION WITH I CIRCULAR JtT lnAKE» 2 ^INC R|CI0N8* 

2 slotted flaps, and 1 aileron TYPE FLAP 
engine centerline free to move in Y and Z directions, 2 ITERATIONS SPECIFIED 


ENCE QUANTITIES 

USED IN force 

AREA 

B 

300,00000 

LENGTH 

hOmFNT CEMFB 

S 

1 o.noono 

XM 

S 

*5,00000 

ZH 

S 

0,00000 


ring input data 


REGION NuMePR I 

INBOARD edge chord b 10.00000 
SE«ISPAN b 20.00000 
DIHEDRAL angle b O.OOQOO 


U VORTICES ARE TO BE LAID OUT IN THIS REGION 
7 SPANWI8E BY 2 CHOBDRISE 

SPanwISE LOCATIONS OF TRAILING VORTEX LEGS, SWEEP 

ANGLES UF 

WING section To 

The right and 

number uf flaps 

behind This 

SPANWISE 

LE SWEEP 

te sweep 

NUMBER 

LOCATION 

0,00000 

2,50000 

20,20000 

11.30000 

qf flaps 
0 

5,00000 

24,20000 

11,30000 

0 

9,00000 

24.20000 

11,30000 

2 

13,00000 

24,20000 

1 1.30000 

2 

15,50000 

24,20000 

11,30000 

2 

16,00000 

24,20000 

11,10000 

0 

20,00000 

24,20000 

11,30000 

1 


REGION number 2 

THIS REGION EXTENDS FROM Y b 


0,00000 TO Y B *5,00000 


2 VORTICES ARE TO BE LAID OUT IN THIS RfCION 
2 SPANWISE 0Y 1 CHORORISE 

INBOARD SIDE-EDGE CHORD b 2,00000 
TRAILING edge SWEEP m 11,30000 


(a) Page 1. 

Figure 9.- Sample output from 
EBF prediction program. 
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INPUT OiT* 


«tr.iON suP8i» l 

THfHC *Rt 2 rU*R8 IN THIS RCGION 

THer tJtTCNO rwfjH Y s aStoafOo to t « -I5,soooo 

ftAP hUMBia \ 

INBOARD eocr CAP • ,10000 

OUTHOARO C06C SAP • ,10000 

inboard EDSe CHORD • 1.50000 

OUTBOARD EDGE CHORD « 1,50000 

DEFLECtIUN anGLB- ■ 20,00000 

3 YOuTtCEB ARf TO BE LAID OUT QN ThXS FLAP 
3 SPANalse BT 1 CHORDHXBE 

SRANW18E LOCATlONf DF 
TRAILING VORTEX LtGS 
•5,00000 
•5,00000 
•13,00000 
•15,50000 

xr,YF C00RDZNATE3 OF FOUR CORNfRO OF FLAP 
cflaf lifs in IFpO rlfnf) 


XF 


YF 

0,00000 


0,00000 

•1,50000 


0,00000 

•t,5Tl5B 


•10,52AR5 

•3,«715B 


•10,52AAS 

•FLAF number 2 



inboard edge Cap 

■ 

,10000 

outboard edge gap 

m 

•lOOOO 

ZN80AR& EDGE CHORD 

m 

2,00000 

OUTBOARD EDGE CHORD 

m 

2.00000 

DEFLECTION ANCLE 

p 

ao.ooooo 


P V0RT1CE9 are rU BE LAID OUT ON ThZB FLAF 
3 aPANHlBE BY 2 CHQRDpISC 

BFANmISE location! of 
TRAILING VORTjx 1.15! 

•5,00000 

•5,00000 

•13,00000 

•15,50000 

kF,YF COORDINATES OF FOUR CORNER! OF FLAP 
(FLAP (.IE! IN 2F«0 PLANE) 

XF YF 

6,00000 0,00000 

• 2,00000 0,00000 

SOFIA •10,5!A2A 

•3, SOFIA •10,5SS2S 

region number 2 

There are i flaps in this region 

they extend from Y • •1!,00000 To V 1 -30,00000 

FLAP number 1 

INBOARD EDGE CAP « 0,00000 

OUTBOARD EDGE CAP ■ 0,00000 

INBOARD EDCE Chord p 1,20000 

outboard edge chord ■ 1,00000 

deflection angle p 10.00000 

1 vortices are to be laid out on 7hX! FLAP 
1 SPAN-IBE BY 1 CHORDMlSE 

SPANMIBE LOCATIONS OF 
TRAILING VORTEX LtO! 

•18,00000 

•20,00000 

IF»YF COORDINATE! OF FOUR CORNER! OP FLAP 
(FLAP LIU IN IFaO PLANE) 

XF YF 

0,00000 0,00000 

• 1,20000 0,00000 

•,3f15F •2,00120 

•t,3«35T •2,00120 


(b) Page 2. 


Figure 9.- Continued, 
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Figure 9.- Continued. 


HCRSESHOt »0»TE« PROPERTIES 


(B 

•****«*•<* RING OAT 


VORTEX 

•CnoROINATES 

07 BOUNO LEO 1 

•lOPOINT 

•••coordinates op control 

POINT*-- 

b,l, s«eep 

MALP--1DTH 

SURPACE 

NUMBER 









SLOPE 

J 

XBL(J) 

VBLU) 

Z9LU) 

XCPU) 

VCPU) 

ZCP(J) 

PSIU) 

SMJ) 

ALPhALU) 

1 

•l.TTITT 

•1.25000 

0,00000 

•4,1*477 

•1,25000 

0,00000 

22, *955* 

1,25000 

0,00000 

2 

. v6«61477 

-1,25000 

0,00000 

•9,01877 

•1,25000 

O.ooooo 

)*, 152*9 

1,25000 

0,00000 

I 

•10.74*77 

•1,25000 

0,00000 

•11,74977 

•1,25000 

0,00000 

11,10000 

1,25000 

0,00000 

4 

•1. Still 

•1,75000 

0,00000 

■5.08412 

•1,75090 

0,00000 

22,6955* 

1,25000 

0.00000 

$ 

•7.15012 

•1,75000 

0,00000 

•9. *1*11 

•1,75000 

0,00000 

It, 152*9 

1,25000 

0,00000 

6 

•11.24912 

•1,75000 


■12,24912 

•1,75000 

0.00000 

1 1,10000 

1,25000 

0,00000 

7 

•a.lTTSI 

•7 1 00000 

0.00000 

•*,24071 

•7,00000 

0.00000 

22. *955* 

2,00000 

0,00000 

B 

•B.IOIRI 

•7,00004 

0.00000 

■10,1*714 

■7,00000 

0,00000 

16.152** 

2,00000 

0,08000 

R 

•S.ISIOO 

•11,40000 

0,00000 

■7, **400 

■11,00000 

0,00000 

22, **55* 

2,00000 

0,08000 

to 

•9.47711 

•11,00000 

0,00000 

•11.2*121 

•11,00000 

0,00000 

1*, 152*9 

2,00000 

0,00000 

it 

•7.10911 

•14,25000 

0,00000 

■8,81041 

•14,25000 

0,00000 

22, *955* 

1,25000 

0,00000 

il 

•10.41111 

•14,25000 

0,00004 

•12,04201 

•14,25000 

0,00000 

1*. 152*9 

1,25000 

0,00000 

IS 

•B.ISStS 

•1*, 75400 

0,00000 

•4,7049* 

•1*,T5000 

0,00090 

12. *955* 

1,25000 

0,00000 

14 

•11.1*477 

•1*, 7*000 

0,00000 

•I2,*1*5S 

■ 1*, 75000 

0,00000 

1*. 152*4 

1,25000 

0,00000 

li 

•4.19*14 

•19,00000 

o.ooooo 

■10,51055 

■19,00000 

0,00000 

22,6955* 

1,00000 

0,00000 

1* 

•11.1249* 

•19.00000 

0.00000 

•11,11*17 

•19.00000 

0,00000 

1*. 152*9 

1,00000 

0,00000 



►REGION 1 PLAP 

1 DATA * 







VORTCK 

•cooroinates 

□7 BOUND LED 

MIDPOINT 

•■•coordinates op control 

POlNT^va 

I.L, SNEEP 

MALPaMiDTH 

SURPACE 

number 









SLOPE 

J 

XBLU) 

VBLU) 

2BLU) 

XCPU) 

VCPU) 

ZCPU) 

PSIU) 

SMU) 

ALPHALU) 

IT 

•11.85112 

«7|00000 

,1282* 

•12,55589 

•7,00000 

,18477 

10, *101* 

2.00467 

0,00000 

tt 

•It. *5040 

•11,00000 

.list* 

•11,15517 

■11,00000 

,18477 

10.6101* 

2,004*7 

0,00000 

»* 

•11. >9911 

•14,15000 

.list* 

•1*,0045* 

•10,25000 

,18477 

10, *101* 

1,252*2 

0,00000 



•REGION 1 PLAP 

1 data * 







VORTEX 

•COORDINATES 

OP BOUND LED 

MIDPOINT 

■••COORDINATES OP CONTROL 

POINTa*» 

8,L, SMEEP 

HALPa«IOTM 

SURPACE 

NUMBER 









SLOPE 

J 

XBLU) 

VBLU) 

ZBLU) 

XCPU) 

VCPU) 

ZCPU) 

PSIU) 

SHU) 

ALPHALU) 

10 

•1I.191T* 

•7,00000 

.707*1 

•11,57*71 

■7,00900 

1,02*12 

8, *12*2 

2.01*41 

0,00000 

It 

•11.SS9I0 

•7,00000 

1,11071 

■14,14281 

•7,00000 

1.97211 

8, *12*2 

2.01*41 

0,00000 

II 

•11.9*104 

•11,00000 

,70791 

■14,17*0* 

■11.00000 

1,01912 

8. *12*2 

2,01*11 

0,00000 

11 

•14.71*01 

■11,00000 

1,15071 

•15,11210 

■11,00000 

l.STItl 

8, *12*2 

2,01*41 

0,00000 

14 

•14.6424B 

•14,25000 

.70791 

•15,02547 

•14,25000 

1.02912 

8,61242 

1.2*027 

0,00000 

IS 

•15.40849 

•14.25000 

1,15072 

•15.79152 

•14.25000 

1,*7211 

8,61292 

1,2*027 

0,00000 



•REGION 2 PLAP 

' 1 data * 







.VORTEX 

•tOORDlNATIt 07 BOUND LED 

MIDPOINT 

•■•coordinates OP control 

POINTaaa 

B.L. SNEER 

H*LP*NIDTH 

SURPACE 

Inumber 









SLQPE 

J 

XSL(J) 

VBLU) 

ZBLU) 

XCPU) 

VCPU) 

ZCPU) 

PSIU) 

ShU) 

ALPHALU) 

1* 

•14.1*74* 

■14,00000 

,04775 

•14,0090s 

•14,00000 

.1412* 

9,741*1 

1,000*0 

0,00000 


alpha KEI NPPTS KJIT TOL MJETCL NJETV NJETCL 

SOiOOD 0 « I ,0$«00 0 > 1 


JIT CENTERLINE DEPLECTIOn ANILI ItPIT ■ elOiS 



Figure 9.- Continued 


CI«CUIAH JfT WAKE MODEL fOR SAMPLE EBF CONFIGURATION 


I 


VJ/V»5 


NJET NCYL NP NNUM NCRCT NPRINT 
1 15 2S 0 «0 •! 



tn JET PARAMETERS 

GAMMa/v 

XQ 

YQ 

20 

0(S) 






4,0000 

■2,0000 

■11,0000 

2,0000 

,1000 




«L 

VCL 

ZCL 

•CL 

TMETa 

A 

B 

DSFACT 

P 


0,000 

0.000 

0.000 

0,000 

0,000 

1,000 

1.000 

1,000 

6,263 


3,000 

0,000 

0,000 

3,000 

0,000 

1,000 

1,000 

1,000 

6,263 


5,000 

0,000 

0,000 

5,000 

0,000 

1.200 

1.200 

1,000 

7,540 

a 

7,000 

0,000 

0,000 

7,000 

0,000 

1.400 

1.400 

1,000 

8,796 


0.000 

0,000 

0,000 

9,000 

0,000 

1,600 

1,600 

1.000 

10,053 

*0 

10,000 

0,000 

0,000 

10,000 

0,000 

1,700 

1,700 

1,000 

10,661 

lu 

Ifl 

11,000 

0,000 

0,000 

11,000 

0,000 

1,600 

1,SOO 

1,000 

11,310 

(D 

11,S0Q 

0,000 

0,000 

11,500 

0,000 

1,850 

l,M0 

1.000 

11,624 


12,000 

0,000 

0,000 

12,000 

0,000 

1,900 

1.900 

1,000 

11,936 

• 

12,500 

0,000 

0,000 

12,500 

0,000 

1,950 

1,950 

1,000 

12,252 


13,000 

0,000 

0,000 

13,000 

0.000 

2,000 

2,000 

1,000 

12,566 


10,500 

0,000 

0,000 

14.500 

0,000 

2,150 

2,150 

1,000 

13,509 


15,000 

0,000 

0,000 

15,000 

0,000 

2,200 

2,200 

2,000 

13,823 


16,000 

0,000 

0,000 

16,000 

0,000 

2,300 

2,300 

2,000 

14,451 


IS, 000 

0,000 

0,000 

16.000 

0,000 

2,500 

2,500 

2,000 

15,706 


'j 

\D 


HORSESHOE VOHTCX 8TREN6THI ROR ALRHa ■ 10.0 DEGREES 




* MING DAT* ** 



NTIME • 

1 


VORTEX 


POINT COORDINATES— 

•■•externally 

INDUCED 

VELOCITIES— 

GAMMA / V 

number 








J 

XCP(JJ 

YCP(J) 

ZCPtJ) 

UEI(J) 

VEKJ) 

mEKJ) 


\ 

•4.1R4T7 

•1.25000 

0,00000 

,00343 

■ .01297 

,00266 

3,48552 

2 

-9.03877 

•1.25000 

0,00000 

,00970 

-,00891 

.00183 

1.78442 

i 

•11.74977 

•1.25000 

0.00000 

,01256 

■,00424 

,00087 

.31417 

u 

•5.06432 

•3,75000 

0,00000 

,00635 

-.02111 

,00582 

3.63964 

<S 

•9.61632 

•3,75000 

0,00000 

,01461 

• .01451 

,00400 

1.89226 

b 

•12.24932 

•5.75000 

0,00000 

,01996 

-, 00756 

,00209 

,11296 

7 

•6.24073 

-7,0000.0 

0,00000 

,01441 

-, 03782 

,01891 

3.75950 

a 

•10.36714 

■7,00000 

0,00000 

,02445 

• ,03002 

.01501 

2.45213 

9 

•7.66400 

•11,00000 

0,00000 

,01937 

0,00000 

.09614 

3.58566 

10 

-11.29111 

•11.00000 

0.00000 

,03409 

0,00000 

,09149 

3.18416 

11 

-6.62041 

•14.25000 

0,00000 

,02065 

,03878 

,02506 

3,51225 

12 

•12.04203 

•14,25000 

0.00000 

,05465 

,03105 

,01910 

2.28995 

13 

•9.70996 

•16,75000 

0,00000 

,01824 

.02063 

,00718 

2,97452 

14 

•12.61958 

•16,75000 

0,00000 

,02677 

,01136 

,00396 

1,25389 

15 

-10.51055 

•19,00000 

0.00000 

,01480 

.01031 

,00258 

2.08460 

16 

•13.13937 

•19,00000 

0,00000 

,01880 

,00268 

,00072 

.63825 



kREGIQN 1 FLAP 

1 DATA * 





VORTEX 

• — •CONTROL 

POINT COORDINATES — 

•—externally 

induced ' 

VELOCITIES — 

gamma / V 

number 








J 

X'CPt J) 

YCP(J) 

ZCP(J) 

UEKJ) 

VEKJ) 

MEKJ) 


17 

•12.55589 

•7,00000 

,58477 

,03556 

-.02501 

,01010 

1.84475 

18 

-13.35517 

• 1 1,00000 

.58477 

•2.09582 

0,00000 

-,10771 

5,01915 

19 

•14.00458 

•14,25000 

.58477 

,05181 

,02575 

.01180 

1.78761 



i-REGION 1 PUXP 

2 DATA « 





VORTEX 


POINT coordinates— 

•••externally 

induced ' 

VELOCITIES — 

gamma / V 

NUMBER 








J 

XCPCJJ 

YCP(J) 

ZCP( JJ 

UEKJ) 

VEKJ) 

MEKJ) 


20 

-13.57678 

•7,00000 

1,02932 

.04382 

• .02219 

,00538 

.88186 

21 

•14.34282 

•7,00000 

1,67211 

,05121 

-.01711 

,00140 

.28264 

22 

•14.37606 

•11,00000 

1,02032 

•1,96547 

0,00000 

•,06417 

2,72557 

23 

•15,14210 

•11,00000 

1.67211 

•1,87086 

0,00000 

•,02239 

.83326 

24 

•15,02547 

•14,25000 

1.02932 

,06677 

,01761 

,00526 

,79769 

25 

•15.79152 

■14,25000 

1.67211 

,08054 

.00642 

,00065 

.22293 



'REGION 2 FLAP 

1 DATA 





VORTEX 

•••-•CONTROL 

POINT coordinates— 

•••externally 

induced velucities— 

GAMMA / V 

number 








J 

XCPtJ) 

YCPCJ) 

ZCP(J) 

UEKJ) 

VEKJ) 

MEKJ) 


2a 

•14,60904 

•19,00000 

.14326 

,02041 

•,00291 

•, 00068 

.35480 


(e) Page 5. 

Figure 9,- Continued. 
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4E«nt)VNAMIC L 0 ADIN 6 MJSULTS fOH ALPHA • |0,00 DIG 


RFFtPENCt OUANTimS 

AiNG sPAH> e arfa length 
UO, 00000 sou, 00000 10,00000 


spannise load distributions 

********** lept wing panel ********** 

LOCAL 

STATION Y/(B/2) CHORD# C CN0RM*C/(2*B) 

CNQRM 

CA 

1 

•,06250 11,6880 

.14232 

,9741 

*•0960 

2 

•,18750 11,0640 

,01709 

,1236 

•,1396 

3 

•,35000 8,2528 

,13704 

1,3285 

•,1879 

tt 

• •B30OO 7,25<ia 

,14325 

1,5797 

•.1224 

5 

•,71250 6,4432 

.13033 

1.6181 

•,2780 

S 

•,83750 5,8192 

,10819 

1 .467R 

•.3107 

7 

•,95000 5,2576 

,06531 

,9937 

•.2366 

***«' 

STATION 

LOCAL 

Y/CB/2) CHORD# C 

CNORN*C/C2*B} 

CNURH 

CA 

1 

••3S000 1.5000 

.10908 

5,8178 

•.6584 

2 

••5SOOO t.5000 

,32688 

17,4337 

•5,2994 

3 

•,71250 1,5000 

,12405 

6.6160 

•,6557 

«*** 

station 

local 

Y/CB/2) CHORD# C 

CNORM*C/(2aB) 

CNORH 

CA 

1 

•,35000 2,0000 

.oasiu 

1.8455 

*.0140 

2 

*.55000 2.0000 

,18897 

7.5508 

•.0910 

3 

•,71250 2,0000 

,06005 

2.a021 

«. 0000 

*•** 

STATION 

LOCAL 

Y/(8/2) CHORD# C 

CN0Rrt*C/(2*e) 

CNORH 

CA 

1 

•,95000 1,1000 

.10306 

7,a956 

•,0001 

wXNG 

ALONE FORCE AND MOMENT 

COEFFICIENTS 





(wiNC coordinate 

SYSTEM) 


CN* 

CAW CLw 

COM 

CHW 

1 .oo0sa 

••10620 1,02535 

•.00828 

.05197 



INDIVIDUAL 

FLAP FORCE AND MOHENT COCPFICICNTS AND LOCATIONS 
(FLAP COORDINATE SYSTEHS • FLAP LIES IN XF.YF 

AT WHICH 1 
PLANE) 

forces act 

region flap 

CNP 

«F (CNF 1 

YF(CNF) CAF 

YFCCAf I 

CYF 

XF (CYF ) 

1 1 

,67191 

•1,61933 

•5.17774 •.12765 

•5.BO9O0 

•,07992 

-2,35652 

1 2 

,39000 

•1,38234 

•4,78196 •,06049 

•5.09013 

•#13597 

•2,80670 

2 1 

,10595 

•,87911 

•,02352 •,00059 

•1.00060 

••00613 

*1,19263 


complete configuration force and 

(PING coordinate 
CN CA CL 

S.I9S1R ,OSU«3 3,07101 


MORtNT 

SVSTIH) 

CD 

,98315 


COIFFIClENTt 

CM CD/CCLACL) 

•t,807«0 ,10024 


(f) Page 6. 
Figure 9.- Continued. 


CHE 

-,00289 

-,02207 

-,0090*1 


81 



PPE88UPE DISTRIBUTIONi 
DELTA P/Q 


******4 

t*** LEFT 

RING 

panel 

********** 



Y/(B/2) 

CHORD, C 






*,062S0 

1 1 .68600 


x/c« 

.10361 

,51605 

,87166 



DELTA 

P/Qm 

1.92933 

,89092 

,25866 

•,18T50 

1 t , 06 aoi 


x/c« 

.10290 

,51202 

.86993 



DELTA 

P/0* 

1.56002 

1,15175 

•10,31161 

^,35000 

6.25281 


x/c* 

,12500 

,62500 




DELTA 

P/Q* 

1.68956 

.61926 


-,55000 

7,25992 


X/C* 

,12500 

.62500 




DELTA 

P/0* 

1.82990 

1,15559 


•,71250 

6.99323 


X/C* 

,12500 

,62500 




DELTA 

P/0* 

2,06625 

1,11769 


-,83750 

5,81923 


X/C* 

,12500 

,62500 




DELTA 

P/0* 

1.91215 

1,27870 


-,95000 

5.25769 


X/C* 

,12500 

,62500 




DELTA 

P/Os 

1,59699 

,91007 


*«**«*« 

•** REGIOM 1 FLAP 2 

********** 



Y/(B/2) 

CHORD, C 






-,35000 

2.00000 


X/Ca 

,12500 

,62500 




DELTA 

P/0* 

9,01272 

2,06699 


-,55000 

2,00000 


X/C* 

,12500 

,62500 




DELTA 

p/0* 

11,18092 

2,69962 


-.71250 

2.00000 


x/c* 

,12500 

.62500 




DELTA 

P/0* 

5,29890 

3,00029 


«***«*« 

*** REGION 2 flap 1 

********** 



Y/(B/2) 

CHORD, C 






-.95000 

2,61000 


X/C* 

,25000 





delta 

p/0* 

19,37059 




ITIRATION I 


(g) Page 7. 
Figure 9.- Continued. 
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Figure 9.- Continued. 


MI^G/FIAP AMD JET INDUCED PEPTURBATIOn VEUOCITlES ON THE JET CtNTERllNE 


i 


I* 

)n 

INC/FU*P •• 



>*• JET •• 


Y 

z 

U/VINF 

V/VIMF 

N/VINF 

U/VINF 

V/VINF 

n/VINF 

*7,00800 

•11,00000 

2,00000 

, 3679a 

*,12766 

,03353 

•3,29939 

0,00000 

•0,00000 

>9,00000 

*11,00000 

2,00000 

,45060 

•,12636 

,10005 

•2,81603 

0,00000 

•0,00000 

*11,00000 

•11,00000 

2,00000 

,57451 

•,12909 

.23553 

•2,45125 

0.00000 

•0,00000 

•12,00000 

•11,00000 

2,00000 

,75987 

•,15229 

.32291 

•2,29603 

0,00000 

•0,00000 

-13,00000 

•11,00000 

2,00800 

,99021 

-,19291 

,55893 

■2,15335 

0,00000 

•6,00000 

•13,50000 

•11,00000 

2,00000 

1,10759 

-,21920 

,71718 

•2,08521 

0,00000 

•0,00000 

•14,00000 

•11,00000 

2,00000 

1,20740 

*,24829 

.90245 

•2,01827 

0,00000 

•0,00000 

-14,50000 

•11,00000 

2,00000 

1,27937 

-,27459 

1,10481 

•1,95165 

0,00000 

■0,00000 

■15,00000 

•11,00000 

2,00000 

1,23345 

-,27332 

1,32083 

■1,88428 

0.00000 

*0,00000 

■16,50000 

•11,00000 

2,00000 

,92065 

•,15655 

1,20205 

•1.66494 

0,00000 

■0,00000 

•17,00000 

• lUOO'OOO 

2,00000 

,83926 

-, 10701 

1,08941 

-1,58221 

0,00000 

•0,00000 

•18,00000 

•11,00000 

2,00000 

,67901 

•,02482 

,86044 

•1,38837 

0,00000 

•0,00000 

•20,00000 
NCYU N8 

•11,00000 
NNUM ncrct 

2,00000 

imprint 

,43772 

,04939 

.51506 

•,77902 

0,00000 

•0,00000 


1 19 24 0 mO mi 


(1) JET FARAHITER8 

6AMMA/V 

XQ 

Y8 

ZQ 

DO) 





4,0000 

•2,0000 

•11,0000 

2,0000 

.1000 



XCL 

YCU 

ZCi 

SCI 

theta 

A 

6 

osfact 

p 

0,000 

0,000 

0,000 

0,000 

0,000 

1,000 

1.000 

1,000 

6,263 

3,000 

0,000 

0,000 

3,000 

0,000 

1,000 

1.000 

1,000 

6.283 

5,000 

-.033 

,036 

5,001 

2,049 

1,200 

1,200 

1,000 

7,540 

7,000 

-.103 

.093 

7,001 

1,258 

1,400 

1,400 

1,000 

8,796 

9,000 

■ ,186 

,094 

9,004 

•1.239 

1,600 

1,600 

1,000 

10,053 

10,000 

-.238 

,053 

10,007 

• 3.388 

1,700 

1,700 

1,000 

10,681 

11,000 

•.314 

• ,066 

11,016 

•10,186 

1,800 

1,800 

1,000 

11,310 

11,500 

-.364 

•,180 

11.532 

•15,481 

1,850 

1,850 

1,000 

11,624 

12,000 

-.427 

-,350 

12,064 

•22,091 

1.900 

1,900 

1,000 

11,938 

12,500 

-.502 

-.590 

12,624 

•29,335 

1,950 

1,950 

1,000 

12,252 

13,000 

-.586 

• .875 

13,205 

■ 30,000 

2,000 

2,000 

1,000 

12,566 

14,500 

-.779 

•1,741 

14,948 

■30,000 

2,150 

2,150 

1,000 

13,509 

15,000 

• ,8!7 

•2,018 

15,521 

-27,925 

2,200 

2,200 

2,000 

13,823 

16,000 

-,655 

•2,484 

16,625 

•22,067 

2,300 

2,300 

2.000 

14.451 

18,000 

-.870 

•3,144 

18,731 

-14,437 

2,500 

2,500 

2,000 

15,708 


CD 

OJ 



HORSESHOE WOHTf)( STHENCTHS EOR ALPHA « 10,0 oecREtS 


VORTEA 


POINT coordinates^*— 

•—externally 

NTIME m 

induced 

2 

VELOCITIES— 

GAMMA / V 

NUH8EP 

J 

XCPCJ) 

7CPCJ} 

ZCPtJ) 

UEIIJ} 

VEKJ) 

REKJ) 


1 

•4,19477 

•1,25000 

0,00000 

,00362 

-.01267 

,00168 

3,19879 

2 

-9,03877 

•1,25000 

0,00000 

.00922 

-.0081 1 

-, 00003 

1,58019 

3 

•1 1 .74977 

•1,25000 

0.00000 

,01094 

•,00374 

•,00163 

.27465 

a 

•5,08432 

•3,75000 

0.00000 

,00696 

•,02054 

,00433 

3,31917 

5 

-9.61632 

•3,75000 

0.00000 

,01439 

-.01247 

,00060 

1,65892 

6 

•12.24952 

•3,75000 

0,00000 

,01669 

-.00558 

• ,00246 

,09604 

7 

•6.24073 

•7,00000 

0.00000 

.01691 

-.03650 

,01529 

3,38045 

B 

•10.36714 

• 7,0000.0 

0,00000 

,02599 

-.02327 

,00577 

2.10361 

9 

-T. 66400 

•11 ,00000 

0.00000 

.01765 

• .02423 

,09187 

3.09228 

10 

•11.29121 

-11.00000 

0,00000 

,05834 

-.04670 

.06127 

2.52351 

11 

•8.82041 

•14.25000 

0.00000 

.01305 

,04265 

,03140 

2,99067 

12 

•12.04203 

•14,25000 

0.00000 

.02414 

,03591 

,03565 

1,78692 

1) 

•9,70996 

•16,75000 

0,00000 

,01318 

,02598 

,00858 

2,57104 

1« 

•12.61958 

-16,75000 

0,00000 

,02068 

.02171 

,00636 

1,02795 

15 

•10,51055 

•19,00000 

0.00000 

.01211 

.01487 

,00193 

1,83309 

16 

•13.13937 

•19,00000 

0.00000 

,01655 

,00999 

-, 00064 

,54608 

VORTEX 


►REGION 1 flap 1 OATA * 
POINT CaORDINATES—— 

—externally 

INDUCED ' 

VELOCITIES— 

gamma / V 

number 

J 

XCP(J) 

VCP(J) 

ZCP(J) 

UEKJ) 

VEItJ) 

REKJ) 


17 

-12.55589 

•7,00000 

.38477 

.03172 

• .01254 

• ,00390 

1.65711 

18 

•13.35517 

•11,00000 

.38477 

•1,59857 

• .03262 

,13272 

3,30612 

19 

•14,00458 

•14,25000 

.18477 

.01590 

,03972 

,03742 

1.47535 

vortex 

•*********REGIQN 1 EL*P 2 OATA * 

—externally 

INDUCED ' 

VELOCITIES— 

gamma / y 

NUMBER 

J 

XCP(J) 

7CP(J) 

ZCP(J) 

UEKJ) 

VEKJ) 

REKJ) 


20 

•13.57678 

•7,00000 

1.029le 

,03494 

-.00522 

•,01054 

,79245 

21 

•14,34282 

•7,00000 

1.67211 

,05754 

,00270 

-.01545 

,23489 

22 

•14,37606 

•11,00000 

1,02938 

•1,57472 

•,06910 

,52610 

1,63875 

23 

-15,14210 

•11,00000 

1 .67211 

•1,60531 

•,08602 

.78207 

.33187 

24 

•15,02547 

•14.25000 

1 .02932 

,05439 

,05843 

,03535 

,66700 

25 

•15.79152 

•14,25000 

1.67211 

,08059 

,06977 

,01951 

,15669 

VORTEX 

• ****•**** REG ION 2 FLAP 1 OATA ********** 

•— --control point ccoroinates— — •— externally 

INDUCED VELOCITIES-- 

GAMMA / V 

Number 

J 

XCPCJ} 

YCPCJ) 

ZCP(J) 

UEKJ) 

VEKJ) 

mEKJ) 


26 

•14,60904 

•19,00000 

.14326 

,01696 

,00570 

-, 00322 

,34483 


(i) Page 9. 
Figure 9.- Continued. 
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*E»novN»«i[: LriCiiMG hesdlts ffK alph» > lo.oo UE.G 


REFlRe^Ct auiNTITIES 
NIMG SPAN, B AREA LENGTH 

UO, 00000 SnO, 00000 10,00000 


SPANW13E LDAD DISIRIBUTIOnS 

•AAA**AAAA LEFT "IRG PANEL A**AA 


LOCAL 


STATION 

T/tB/2) 

CHORD, C 

CN0RmaC/(2*B1 

CNORH 

CA 

1 

•,06250 

t 1 ,6B80 

.1277J 

,87U2 

*,0643 

2 

•,18750 

1 1 ,06«0 

,02710 

,1960 

•,1202 

s 

••ssooo 

8,2528 

,12099 

1,1728 

•• 1 626 

u 

•,55000 

7, 2590 

.11770 

1,2979 

*•1310 

5 

•,71250 

6,a«S2 

.1157J 

1.9370 

•.2113 

6 

•,8J750 

5,8192 

,09185 

1,2627 

-.2375 

7 

•,95000 

5,2576 

,05699 

,8672 

•« I860 









LOCAL 




STATION 

y/iB/i) 

CHOfcO# C 

CN0RM*C/(2*B) 

CNORh 

CA 

1 

■ • 3S000 

1 .5000 

,08871 

M.73I2 

•,5618 

2 

•,55000 

1 .5000 

,18789 

10,0206 

-2,35111 

3 

•,71250 

1 .5000 

,09265 

0,9015 

•,0871 


REBIQN 1 flap 2 
LOCAL 


8TATIUN 

1 

2 

3 

v/ce/ 2 ) 

•,35000 

•,55000 

-.71250 

CHORD# C 
2,0000 
2.0000 
2.0000 

CNURHaC/CEaB) 

,03752 

,10717 

,09831 

CNORH 
1 ,5006 
4,2669 
1 ,9125 

CA 

-.0108 

•,0021 

•,0051 

ITATIUN 

1 

Y/CB/2) 

95000 

LOCAU 
CHORD# C 
1.1000 

CNUHH*c/(2*05 

,07920 

CNQRM 

5,7600 

CA 

•,0755 


WING alone force and pO«ENT COEFFIClENTt 



C-INC 

coordinate 

SYSTEM) 


CNH 

CA- 

CL* 

CDH 

CHt* 

,90199 

-.15849 

.91578 

,00090 

,0347b 




INDIVIDUAL 

FLAP FORCE 

ano moment coefficients 

AND LOCATION! 

AT nHICH I 

FORCES ACT 





(FLAP coordinate systems 

• FLAP 1 

.lES IN «F,yF 

PLANE) 



REGION 

FLAP 

CNF 

XF (CNF) 

YF(CNF) 

CAF 

YF(CAF ) 

CYF 

XF (CYF ) 

CHF 

1 

1 

,45338 

•1 ,61431 

•9,92968 

•,064)0 

-5,62217 

•,03880 

-2,59432 

••03083 

1 

? 

.22762 

•1,36176 

•9,62052 

•,02583 

•5.59633 

•,0400b 

•3,97295 

•,01531 


1 

,06015 

-,67449 

-, 03763 

•,00055 

•1 ,00060 

•,00622 

•1,15052 

• ,00682 


complete COneiGURATION force ano moment coefficients 


CN 

2.10RUT 


tPlNO COOROINaTE BrSTEM) 

CA CL CD CM CD/ICLACU 

,51SS] 2.1BB00 .TIBSR •1.190S9 ,1009} 


( j ) Page 10 . 
Figure 9.- Continued. 
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Figure 9.- Continued 


FRe«tUR( OISTRIBUTIONR 
DEUT* F/0 


03 

<jv 



T^(8/2) 

••0A2S0 

«*»* LEFT 

CHORD, C 
1 ) .6S000 

RING f 
DELTA 

'ANEL 

X/Ca 

P/Or 

,10161 

1,30115 

,5ia05 

,76669 

.67166 

,2'2»71 


•.1BT50 

11.06R0I 

DELTA 

x/Cr 

P/Qa 

.102RO 

l.olBOl 

,51202 

,97267 

. 86093 
•8,20738 


*,35000 

B.2S2B1 

DELTA 

X/Cr 

P/fiR 

,12500 

1.51512 

,62500 

,6B972 



•,55000 

7,25002 

DELTA 

X/CR 

P/Or 

.12500 

1.55T59 

.62500 

,88500 



•,71250 

*,ttOS23 

DELTA 

X/CR 

P/Qr 

.12500 

1.859R7 

.62500 

1,10729 



•,S3TS0 

5,01921 

DELTA 

x/cr 

p/qr 

,12500 

1.6T560 

.62500 

,99657 


(k) Pa 

•,55000 

5,2STt« 

DELTA 

X/CR 

P/Or 

,12500 

1.1601T 

.62500 

.33801 


kQ 

(t> 

h* 


**** REOION 1 FLAP 2 




H* 

T/(B/2) 

•,35000 

CHORD, C 
2,00000 

DELTA 

x/Cr 

P/Or 

,12500 

3,10592 

,62500 

1.631R7 



>,55000 

2,00000 

DELTA 

X/Ca 

P/QR 

.12500 

6,80563 

,62500 

l,ll«62 



•,T12S0 

2,00000 

DELTA 

X/CR 

P/Qr 

.12500 
«, 11576 

,62500 

2,52517 



•«***«***» RI6I0N 2 FL*^ I •*•*•*♦* 
Y/CB/l) CHORD, C 

•i«SeOO 2.MOOO X/CR ,2S«00 

DELTA R/QR 10.R2D6 


iteration 2 



Figure 10.- Continued. 


MlNG/FLAP AND JET INDUCED PERTURBATION VELOCITIES ON THE JET CENTERLINE 


ninc/flap •*-i**«**«---*-- jet •----**••-•1 



y 

1 

U/VINF 

V/ViNF 

W/VINF 

U/VlNF 

V/VINF 

N/VINF 

•7,00000 

•11,03259 

1,96423 

.30644 

•,11016 

,03673 

•3,30012 

•,04212 

•,0SS34 

•9,00000 

•11,10206 

1.90650 

,35954 

•,12106 

,00029 

•2,02106 

•,05501 

•,04001 

•11,00000 

•11,10560 

1 ,90617 

,42034 

•.13640 

,19702 

•2,45702 

•,06563 

,09741 

•lE, 00000 

•11,23004 

1.946S7 

,52592 

•,16537 

.24705 

•2,29195 

•,07663 

.23619 

•13,00000 

•11.31361 

2.06561 

,63756 

•,20906 

.30907 

•2,10036 

•,0SSB2 

,45177 

•13,50000 

•11,36403 

2,17952 

,66047 

•,23157 

.47512 

•2,00760 

•,09401 

,57545 

•10,00000 

•11,42651 

2,34959 

,67510 

-.25191 

,55711 

•1,00930 

•,09740 

.71409 

•10,50000 

•11,50249 

2,59035 

,65601 

•.26092 

,61046 

•1,00110 

•,09050 

.00475 

•15,00000 

•11,50569 

2,07516 

,62093 

•,20405 

,65309 

•1,70644 

•,09457 

,06205 

•16,50000 

*11,77064 

3,74110 

.61550 

•.32539 

,70960 

•1,49520 

•.06434 

,79425 

•17,00000 

•11,61675 

4,01791 

,62901 

•.33061 

.73359 

•1.42921 

•.05106 

,72200 

•iS, 00000 

•11,05503 

4,40413 

,60209 

•.30350 

,00466 

•1,20627 

•,03010 

.56496 

•20,00000 

•11,66960 

5,14371 

,73537 

,00029 

.07324 

*,73017 

•,00906 

.25037 


65. 

NJCT NCVL 

NP 

NNUM 

ncrct 

NPRINT 






0) 

1 15 

26 

0 

• 0 

• 1 






fD 

(1) JET parameters 


GAMHA/V 

xo 

VO 

EG 

DCS) 



H 

JO 




4,0000 

•2,0009 

•11,0000 

2,0000 

,1000 




XCL 


YCL 

ZCL 

SCL 

THETA 

A 

0 

DSFACT 

P 


0,000 

0 

,000 

0,000 

0,000 

0,000 

1,000 

1.000 

1,000 

6,283 


3.000 

0 

.000 

0,000 

3.000 

0,000 

1,000 

1,000 

1,000 

6,283 


5,000 


.040 

,057 

5,001 

3,241 

1,200 

1,200 

1,000 

7,540 


7,000 


.132 

,150 

7,005 

2,003 

1.400 

1,400 

1,000 

0,796 


9,000 


,250 

.146 

9.009 

•2,304 

1,600 

1.600 

1,000 

10,053 


10,000 


.327 

.069 

10,015 

•6,421 

1,700 

1,700 

1,000 

10,601 


11,000 


.032 

•.122 

1 1,030 

•15,218 

1,800 

1,000 

1,000 

11,310 


11,500 


.497 

•,204 

11,560 

•20,673 

1,850 

1.050 

1,000 

11,624 


12,000 


,572 

• .502 

12,119 

•26,54} 

1,900 

1,900 

1.000 

11.93S 


12,500 


.655 

-.771 

12,692 

•30,000 

1.950 

1,950 

1,000 

12,252 


13,000 


,744 

•1 , 060 

13,277 

•30,000 

2,000 

2,000 

1,000 

12.566 


14,500 

• 1 

,039 

•1,926 

15.034 

•30,000 

2,150 

2,150 

1,000 

13,509 


15,000 

•1 

.145 

•2,214 

15,620 

"30,000 

2,200 

2,200 

2,000 

13.023 


16,000 

• 1 

.357 

•2.792 

16,794 

•30,000 

2,300 

2,300 

2.000 

14,451 


18,000 

• 1 

,564 

•3,946 

19,113 

•30,000 

2,500 

2,500 

2,000 

15,701 


***• NO convergence after 2 ITERATIONS TOL ■ ,0S00 DEL • ,3605 **«* 


00 


NASA-Langley, 1976 CR-2706 


CO 

00 



.induced velocities at mecieied field points 


I....,..« NIN6/FLAP NINC/FLAP+JET^VINP 

perturbation velocities 


X 

V 

z 

U/VINP 

V/VINF 

W/VlNF 

U/VINF 

V/VINF 

N/VINF 

•IStOOOOO 

•11.00000 

0,00000 

,2«11T 

.0IB02 

,S8B19 

• ,OSBSO 

•,01413 

,41170 

•1*, 00000 

•11,00000 

2,00000 

,02041 

•,1241S 

.T0560 

•2,00S21 

•,22307 

1,4S00'5 

•ts.ooooe 

•11,00000 

4,00000 


•,101BI 

,01534 

•i,oeoei 

•,23107 

1.34050 

•is.ioooo 

•11,00000 

0,00000 

.5TS14 

••1204V 

,40003 

•,4742S 

••15070 

,32417 




